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经 党 中 央 、 国 务 院 批 准 实施 的 “星火 计划 ”, 其 目的 是 把 
科学 技术 引 向 农村 ,以 振兴 农村 经 济 ,促进 农村 经 济 结构 的 改 
革 , 意 义 深 远 。 

实施 “星火 计划 ?的 目标 之 一 是 ,在 农村 知识 青年 中 培训 
一 批 技术 骨干 和 乡镇 企业 骨干 ,使 之 掌握 一 二 门 先进 的 适用 
技术 或 基本 的 乡镇 企业 管理 知识 。 为 此 ,有 需 出 版 (“ 星 火 计 
划 ? 丛 书 》 以 保证 教学 质量 。 

中 国 出 版 工作 者 协会 科技 出 版 工作 委员 会 主动 提出 愿意 
组 织 全 国 各 科技 出 版 社 共同 协作 出 版 4(“ 星 火 计 划 ? 丛 书 》 为 
“星火 计划 ?服务 。 据 此 ,国家 科 委 决定 委托 中 国 出 版 工作 者 协 
会 科技 出 版 工作 委员 会 组 织 出 版 全国“ 星火 计划 ”丛书 》 并 
要 求 出 版 物 科 学 性 ` 针 对 性 强 , 履 盖 面 广 ,理论 联系 实际 ,文字 
通俗 易 懂 。 

愿 4 全 国 “ 星 火 计划 ?丛书 ;的 出 版 能 促进 科技 的 “星火 ?在 
广大 农村 逐渐 形成 “ 烷 原 ”之 势 . 同 时 ,我 们 也 希望 广大 读者 对 
《人 全国“ 星火 计划 ?丛书 ;的 不 足 之 处 乃至 缺点 .错误 提出 批评 
和 建议 ,以 便 不 断 改 进 提高 。 


《全 国 “ 星 火 计 划 ” 丛 书 》 编 委 会 
1987 年 4 月 28 日 


序 言 


当前 ,世界 正面 临 着 一 场 新 的 技术 革命 ,为 了 适应 新 技术 
革命 的 发 展 ,我 国正 在 大 力 开展 普及 与 应 用 计算 机 技术 。 

目前 ,世界 上 许多 国家 的 计算 机 教育 的 重点 已 从 高 等 院 
校 转向 普通 教育 ,职业 教育 ,计算 机 正 逐 步 形成 普及 的 趋势 。 
为 使 我 国 在 十 年 或 十 五 年 以 后 走 上 工作 岗位 的 亿 万 中 小 学 生 
成 为 掌握 信息 社会 的 工具 .具有 计算 机 基础 知识 的 科技 人 才 ， 
国家 科 委 、 国 家 教委 .中 国 科 协 . 电 子 部 等 单位 联合 组 织 开发 
了 "中 华 学 习 机 ”, 以 适合 中 小 学 教学 及 家 庭 使 用 .这 是 当前 世 
界 新 技术 革命 和 教育 革命 的 一 大 趋势 计算 机 进入 学 校 , 走 向 
家 庭 , 将 有 力 地 促进 整个 社会 的 进步 和 发 展 。 

为 了 适应 广大 青少年 学 习 、 应 用 计算 机 的 需要 ,我 们 编 扎 
了 这 套 “ 青 少年 计算 机 学 习 与 应 用 ”丛书 。 丛 书 以 “中 华 学 习 
机 ”系列 微机 为 背景 ,除了 通俗 ,简明 地 介绍 计算 机 的 使 用 、 应 
用 以 外 ,还 形象 生动 ,深入浅出 地 介绍 计算 机 原理 、 软 硬件 基 
础 知识 及 应 用 发 展 等 方面 的 内 容 。 为 了 促进 中 小 学 生 德 智 体 
美 全 面 发 展 , 丛 书 还 介绍 一 系列 辅助 教育 软件 ,其 中 有 辅导 语 
文 ` 外 语 、 数 学 等 基础 课程 的 学 习 软件 ,有 开发 青少年 智力 的 
游戏 软件 ,还 有 提高 文艺 修养 方面 的 艺术 软件 。 

希望 这 套 丛 书 能 成 为 广大 青少年 的 朋友 ,同时 也 希望 它 
成 为 广大 在 职 干 部 和 职工 的 有 益 的 参考 读物 。 


中 国 计 算 机 学 会 吴 几 康 陈 树 模 

全 国 中 学 计算 机 教育 研究 中 心 吕 传 兴 潘 抑 德 
1987. 8 

避 演 放 


B 尼 


前 


计算 机 图 形 学 是 计算 机 科学 中 的 一 门 新 兴学 科 。 由 于 它 
以 直观 的 方式 传递 信息 ,信息 量 大 ,应 用 广泛 ,所 以 许多 先进 
国家 为 之 投入 了 大 量 的 人 力 与 物力 。 我 国 是 一 个 以 使 用 汉字 
为 主 的 国家 ,而 汉字 是 一 种 图 形 化 的 符号 ,或 者 说 是 一 种 符号 
化 的 图 形 ,所 以 要 在 我 国 建立 计算 机 辅助 教学 条 统 , 就 必然 要 
以 计算 机 图 形 学 作为 它 的 一 个 重要 组 成 部 分 。 

《苹果 机 和 中 华 学 习 机 电脑 绘图 》 是 一 本 计算 机 图 形 学 的 
科普 读物 ,是 作者 在 长 期 教学 实践 基础 上 , 花 了 两 年 多 的 时 
间 ,苦心 追求 , 数 易 其 稿 写成 的 。 全 书 不 是 一 个 个 缴 立 程序 的 
随意 拼合 ,而 是 以 美丽 的 图 象 为 肌肤 ,以 开拓 智力 发展 思 维 
为 骨架 ,以 活跃 想象 能 力 、 培 养 创造 能 力 为 血液 ,一 气 呵 成 的 
整体 。 尤 其 值得 赞赏 的 是 作者 的 创新 精神 ,如 程序 6-4 虽然 简 
短 , 然 而 通过 变化 牛顿 蛇 形 线 , 计 算 机 很 快 地 在 碾 幕 上 绘 出 三 
棵 树 。 程 序 3-10 的 雪花 线 变 化 多 端 ,图 形 漂亮 ,风格 独特 ,使 
电脑 艺 范增 色 生 辉 。 

该 书 图 文 并 藏 ,雅俗共赏 ,深入 浅 出 ,妙趣 横生 。 全 书 的 程 
序 都 集 于 一 张 软 瘟 上 ,可 供 读者 随时 调用 ,给 用 户 提 供 了 很 大 
的 方便 。 我 相信 ,这 本 书 会 成 为 广大 中 小 学 师 生 的 助手 ,也 会 
成 为 摘 计 算 机 辅助 教学 软件 设计 的 人 员 和 计算 机 实用 美术 设 
计 的 人 员 的 好 朋友 。 

吕 传 兴 
1989. 12 
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达 芬 奇 说 :绘图 首先 是 从 点 开始 ， 
其 次 是 线 , 然 后 是 面 , 最 后 是 由 面 规定 
的 形体 。 著 名 的 抽象 派 大 师 康 丁 斯 基 
也 曾经 写 过 厚 厚 一 本 关于 绘图 的 书 ， 
书 名 就 叫 (点 。 线 。 面 》。 本 章 首先 介 
绍 点 与 线 的 画 法 ,而 把 面 融 于 其 中 。 本 
章 还 讨论 了 增加 色彩 的 方法 与 换 页 技 








一 、 高 分 辨 绘图 状态 


中 华 学 习 机 有 高 分 辩 第 一 页 与 第 二 页 图 形 区 。 

HGR 命令 设 定 第 一 页 为 当前 显示 区 ,并 在 下 面 留 下 4 行 
文本 状态 显示 西 文 。 这 种 图 形 与 西 文 分 别 使 用 屏幕 上 下 两 个 
区 域 的 方式 , 叫 混 屏 状 态 。 假 使 你 是 初学 高 分 辨 绘图 ,最 好 先 
使 用 第 一 页 ,4 行文 本 状态 可 以 使 你 看 到 有 关 结 束 和 错误 的 
信息 。 在 HGR 状态 下 ,水 平方 向 共有 280 列 ,垂直 方向 共 可 显 
示 160 行 。 

1 。 


中 文 BASIC 的 显示 区 使 用 高 分 辨 第 二 页 。 在 西 文 状态 
下 ,你 可 以 使 用 HGR2 命令 设 定 第 二 页 全 屏幕 显示 状态 ,在 全 
屏幕 状态 下 ,整个 屏幕 共有 280X 192 个 点 。HGR 与 HGR2 都 
会 清除 画面 。 

在 绘图 前 ,必须 先 设 定 绘图 所 用 颜色 。 设 定 颜色 的 命令 是 
HCOLOR =N。 在 高 分 辨 状态 下 ,共有 8 种 颜色 ,N 是 颜色 的 代 
码 , 它 可 以 是 一 个 数学 表达 式 , 计 算 机 会 自动 取 其 整数 部 分 。 
当 N<0, 或 N 过 8 时 ,计算 机 会 自动 给 出 错误 信息 。 下 面 是 N 
值 所 对 应 的 颜色 表 : 


表 1-1 高 分 辨 颜色 代码 表 


N 介 DO 有 和 且 本 生 克 下 玫 玫 于 攻 和 区 中 
黑 1 白 1 | 黑 2 白 2 
blackl | green | blue |whitel|black2| red |yellow|white2 


由 于 显示 器 或 电视 机 的 不 同 ,N 王 2,5,6 的 颜色 会 有 一 些 
差异 。 当 颜色 设 定 后 ,其 它 BASIC 命令 都 不 能 改变 它 ,除非 重 
新 设 定 N 的 值 。 









二 、 所 与 直 颖 


高 分 辨 状态 下 的 屏幕 坐标 的 原点 设 在 屏幕 的 左上 角 。 水 
平方 向 上 有 280 个 点 , 横 坐 标 X 的 取 值 范围 是 0 委 X<<280.。 坚 . 
直方 向 上 有 192 个 点 , 纵 坐 标 立 的 取 值 范围 是 0 多 Y<<192.。 与 
APPLE Ie 相同 ,中 华 学 习 机 也 是 采用 位 对 应 显示 方式 ,屏幕 
坐标 只 能 取 整 数值 。 这 种 坐标 点 , 称 为 扫描 点 , 它 对 应 于 计算 

。2 。 


机 内 的 一 个 存储 单元 中 的 一 个 二 进 制 位 。 

绘制 一 个 点 的 命令 是 

HPLOT 和 X,Y 
X 与 立 是 屏幕 坐标 的 横 坐 标 与 纵 坐 标 , 它 们 都 可 以 是 数学 表 
达 式 。 计 算 机 会 自己 舍弃 坐标 值 的 小 数 部 分 。 所 以 实际 上 横 
坐标 的 最 大 有 效 值 是 279, 纵 坐标 的 最 大 有 效 值 是 191。 如 果 
坐标 值 超 出 了 约定 范围 ,计算 机 就 会 中 断 工 作 ,并 告诉 你 发 生 
了 legal quantity error( 违 反 规 定 的 数量 错误 )。 

下 面 的 程序 会 在 屏幕 中 心 绘 出 一 个 绿色 的 点 ; 

10 HGR 

20  HCOLOR 一 1 

30 HPLOT 141,95 

如 果 把 程序 中 的 第 20 句 的 颜色 号 改 为 3, 执 行 后 ,仍然 
绘 出 一 个 绿 点 ;而 把 颜色 号 改 为 2, 则 没有 任何 显示 。 这 是 因 
为 , 当 颜 色 号 N 王 1 或 5 时 ,只 有 在 奇数 列 (X 为 奇数 ) 才 会 有 
显示 ; 当 N= 王 2 或 6 时 ,只 有 在 偶数 列 才 会 有 显示 ; 当 水 平 相 
邻 的 两 个 点 都 被 绘 出 时 , 才 会 合成 白色 。 

绘制 直线 的 命令 是 

HPLOT Xi,Y， TO X,,Y， 
(Xi,Yi) 与 (X:,Yz*) 是 直线 的 二 个 端点 的 屏幕 坐标 。 下 面 的 程 
序 会 绘 出 两 条 直线 ， 

10 HGR. 

20 HCOLOR 一 3 

30 HPLOT 10,10 TO 90,90 

40 HPLOT 10,50 TO 200,50 

如 果 绘 制 一 组 直线 ,就 可 能 交织 成 一 个 面 。 假 定 有 两 个 质 
点 ,一 个 在 点 (CSX,0) 处 开始 沿 屏幕 向 下 移动 ;一 个 在 点 (2 。 

有 和 


SX,191 一 SX) 处 开始 沿 屏幕 水 平 向 右 移动 ,二 个 质点 的 移动 
速率 相同 在 这 两 个 质点 之 间作 一 条 连 线 , 随 着 质点 位 置 的 
变化 ,我们 就 可 以 绘 出 一 个 曲面 .对 应 于 不 同 的 初始 状态 
SX 一 0,SX 一 25,SX 一 50, 就 形成 了 三 个 稍 有 不 同 的 曲面 (图 
1-1) 。 程序 1-1 的 130 句 一 150 句 绘 出 一 个 曲面 。 而 外 循环 则 
给 出 不 同 的 初始 状态 , 它 控 制 着 曲面 的 总 数 。 





图 1-1 直线 组 合 的 曲面 效应 


程序 1-1 
100 REM 程序 1-1 
110 HGR2:， HCOLOR 一 3 
120 FOR SX=0 TO 50 STEP 25 
130 FOR Y=SX TO 191 STEP 7 
ws。 4。 


140 
150 
160 
170 


HPLOT  SX,Y-SX TO SX 十 Y,191-SX 
NEXT YY 

NEXT  SX 

END 


我 们 可 以 看 到 直线 具有 绘制 曲面 的 效果 (这 是 通过 线条 
交织 的 浓淡 下 密 的 不 同 来 实现 的 )。 程 序 1-2 使 用 了 类 似 的 方 
法 ,并 加 上 了 上 下 \ 左 右 的 对 称 形式 。 程 序 本 身 只 能 显示 半幅 
画面 ,考虑 到 实际 应 用 ,可 以 采用 打印 后 再 拼合 的 方法 (这 是 
显示 屏 的 外 延 ), 得 到 纹理 比较 清晰 的 画面 ,图 1-2 就 是 连续 
打印 二 次 的 结果 。 与 摄影 的 暗房 技术 相 比 ,这 种 方式 还 仅 是 一 
种 最 简单 的 美化 手段 。 如 果 你 将 这 幅 图 打印 16 张 , 再 用 4X14 
的 方式 拼合 起 来 ,你 会 对 计算 机 作 图 和 直线 的 神奇 组 合 产生 
更 深 的 印象 .这 种 组 合 , 是 现代 设计 领域 中 的 平面 构成 的 一 个 
课题 .现代 设计 师 已 经 借助 于 电脑 ,设计 出 许多 令 人 耳目 一 新 


的 产品 。 
程序 1-2 


100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 


REM 直线 

HGR2 : HCOLOR 王 3 

FOR A 一 191 TO 279 STEP 88 
FORY 一 0, TO 191 STEP 9 
HPLOT 0, Y TO A 一 Y，0 
HPLOT 279,Y TO 279 一 A 十 Y,0 
HPLOT 279,191 一 Y TO 279 一 A 十 Y,191 
HPLOT 0,191 一 Y TO A 一 Y,191 
NEXT Y 

NEXT A 

END 


图 1-2 直线 的 图 案 效果 





图 1-2 中 的 网 状 图 案 
有 二 层 , 这 是 由 循环 
变量 A 控制 的 ,它们 
分 别 对 应 于 A=191 
与 A 一 279。140 一 170 
的 四 句 HPLOT 语句 ， 
分 别 画 出 左上 和 角 、 右 
上 角 \ 右 下 角 、\ 左 下 角 
的 对 称 图 线 。 


SR 人 入 


折线 是 曲线 的 一 
种 特殊 情况 。 在 实际 
应 用 中 ,我 们 经 常 以 
折线 去 近似 地 描述 某 
些 曲线 ,使 复杂 的 运 
算得 到 简化 。 使 用 折 


线 方法 去 描绘 曲线 ,一 般 都 可 以 使 绘图 速度 得 到 明显 的 提高 。 


高 分 辨 绘图 中 绘制 折线 的 命令 是 


HPLOT TO 和 Y 


计算 机 每 次 在 画 点 或 线 时 ,总 是 把 最 后 画 到 点 的 纵 坐 标 
与 横 坐 标的 值 保 存 起 来 , 当 计 算 机 执行 到 绘制 折线 的 命令 时 ， 
计算 机 就 以 被 保存 的 坐标 点 作为 起 点 ,向 现在 命令 中 指定 的 
点 (X,Y) 作 一 条 直线 。(X,Y) 的 约定 范围 与 画 点 命令 HPLOT 


X,Y 相同 。 
ee。 6 。 


绘制 折线 的 另 一 个 更 常用 的 命令 是 
HPLOT Xi,Y，TO Xs,Y TO Xs,Y。， TO XiY…， 


这 两 种 句 式 都 会 节省 绘图 时 间 。 可 以 用 这 种 句子 画 一 些 
具有 空间 效应 的 平面 图 象 。 最 简单 的 方法 是 先 在 方 格 纸 上 画 
出 图 象 , 记 下 直线 的 交点 坐标 ,然后 编制 程序 。 图 1-3 就 是 程 
序 1-3 的 运行 结果 。 


图 1-3 具有 空间 效应 的 平面 图 象 


程序 1-3 

10 TEXT , HGT , HCOLOR 一 3 

20 HPLOT 0,0 TO 272,0 TO 272,159 TO 0,159 TO 0,0 

30 HPLOT 1,1TO271,1TO271,158 TO 1,158 TO 1，,1 

40 HPLOT 100,120 TO 90,122 TO 60，117 TO 60,59 TO 90,50 
TO 90,122 

50 HPLOT 80,853 TO 80,37 TO 110,25 TO 110,56 

60 HPLOT 90,50 TO 130,61 TO 130,74 

70 HPLOT 120,72 TO 100,76 To 100,128 To 120,132 TO 120， 
73 TO 150,79 TO 150,125 TO 120,132 

。7 。 


80 HPLOT 110,25 TO 140,39 TO 140,75 

90 “HPLOT 0,100 To 60,100: HPLOT 150,100 TO 270,100 

100 HPLOT 2,114 TO 200,158 

110 END 

必须 注意 ,在 一 个 程序 中 ,在 还 没有 画 过 点 与 直线 之 前 ， 
不 要 先 使 用 HPLOT TO X,Y 这 个 语句 ,因为 此 时 还 没有 
一 个 坐标 点 被 计算 机 真正 保存 起 来 。 

另外 有 一 类 图 案 , 它 的 基本 线条 很 简单 ,而且 很 有 规律 ， 
使 我 们 可 以 采用 更 好 的 方法 。 象 图 1-4, 由 于 它 有 立体 的 视 幻 
效果 ,而 受到 一 些 设计 师 的 青睐 。 对 图 形 的 坐标 ,最 好 采用 变 
量 表示 ,这 样 可 以 通过 变量 来 控制 图 形 的 显示 位 置 .但 也 不 可 
滥用 变量 ,变量 过 多 ,程序 可 能 变 得 难以 读 懂 。 在 程序 1-4 中 ， 
我 们 以 变量 XC,YcC 作为 图 1-4 的 几何 中 心 坐标 ,用 (XC,YC) 
控制 绘图 中 心 位 置 ,而 以 N 与 N2 作为 控制 其 它 坐 标的 偏 移 
量 的 值 ,这 样 N 与 N2 也 就 成 为 控制 两 个 正方 形 的 大 小 的 变 
量 。 由 图 1-4 可 知 ,两 个 正方 形 的 边 长 分 别 为 2N 与 2N2。 图 
1-4 共 有 12 个 交点 坐标 ,为 了 便于 书写 程序 ,最 好 先 给 每 个 
坐标 标 上 屏幕 坐标 的 表达 式 。 

由 于 要 画 二 个 正方 形 ,所 以 程序 1-4 将 画 正方 形 作 为 一 
个 单独 的 子 程序 (500 句 )。 为 了 便于 阅读 程序 ,便于 图 形 组 合 
变化 的 控制 ,一 般 都 将 一 些 基本 图 形 写成 子 程序 的 形式 .对 于 
更 复杂 的 组 合 ,程序 1-4 本 身 也 可 以 作为 一 个 子 程序 。 程 序 
程序 1-4 

110 HGR2 : HCOLOR 王 3 

120 XC 一 140:YC 一 95 

130 N 王 45:N2 一 90 

140 HPLOT XC 一 N2,YC 一 N2TOXC 一 NYC 一 N 
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150 
160 
170 
180 


190 
200 
210 
500 


HPLOT XC 十 N2,YC 一 N2TOXC 十 NYC 一 N 

HPLOT XC 十 N2,YC 十 N2TOXC 十 N'YC 十 N 

HPLOT XC 一 N2,YC 十 N2TOXC 一 NYC 十 N 

HPLOT XC 一 N2,YC 一 N2TOXC 一 N,YCTOXC 一 N2， 
YC 十 N2TOXC,YC 十 NTOXC 十 N2,YC 十 N2TOXC 十 
N;YC- TO XC 十-N2，YC 一 N2IOXCYC 一 NTITOXC 一 
N2,YC 一 N2 

GOSUB 500 

N 一 N2: GOSUB 500 

GET A$ : TEXT : END 

HPLOT XC 十 NYC 一 NTOXC 一 NYC 一 NTOXC 一 
N,YC 十 NTOXC 十 N',YC 十 NTOXC 十 N'YC 一 N:RE- 
TURN 


(CXC 一 N2,YC 一 N2) (XC 十 N2,YC 一 N2) 





(CXC 一 N2,YC 十 N2) (XC 十 N2,YC 十 N2) 


图 1-4 折线 组 成 的 一 个 基本 图 形 


1-4 的 140 一 170 句 绘 出 两 个 正方 形 的 顶 角 的 四 条 连 线 ， 
180 句 绘 出 剩 下 的 折线 部 分 , 它 象 倾斜 的 十 字 星 形 。 

图 1-5 是 一 个 以 图 1-4 为 基本 图 形 组 合成 的 图 案 。 首 先 
将 程序 1-4 的 110 一 130 句 删 去 ,并 将 210 句 改 为 


210 


RETURN 


这 样 , 就 使 原 程序 1-4 被 修改 后 的 内 容 成 为 程序 1-5 的 


子 程序 ， 


程序 1-5 
20 
30 
40 
50 
60 
70 


。10 。 


它 的 入 口 是 140 句 。 


Se 7 
站 汗 下 和 玉 和 省 浊 洛 全 


SN、 SS 2 TS TS 几 
及 人 


册 ” [从 SS RNLA 


we 习 


2 Et 这 


SR AN < 坪 


人 凡人 人 S0 多 ) 机 2 3 TS 和 4 同人 


人 员 志 避 志 总 
网 疝 人 贡 


电 


o 


5 


上 


加 
NS 
人 1 





NO ON 


SR 人 
NA 加 


TS 


并 
攻读 
[ 2 


图 1-5 基本 图 形 的 亚 加 效应 


HGR2 : HCOLOR 一 3 
YC 一 40:CY 一 6 
XC 一 40:CX 一 9 

N 一 12:N2 一 2*N 
GOSUB 140 


XC 一 XC 十 N2:CX 一 CX 一 1:IFCXTHEN 50 


80 YC 一 YC 十 N2:CY 一 CY 一 1: IF CY THEN 40 
90 END 


在 程序 1-5 中 ,变量 CY 是 垂直 方向 的 计数 器 ,CX 是 水 
平方 向 的 计数 器 。CX=9 说 明 沿 水 平方 向 一 次 画 9 个 基本 图 
形 ( 图 1-4) ,CY 王 6 说 明 共 画 6 行 。 程 序 1-5 用 70 与 80 句 的 
条 件 转移 组 织 两 重 循环 ,如 果 CX 为 真 ( 非 零 ) ,就 转移 到 50 
名 ;如果 CY 为 真 ( 非 零 ) ,就 转移 到 40 句 。 这 种 逻辑 判断 方式 
清楚 ,简洁 ,使 用 方便 ,本 书 将 较 多 地 采用 这 种 方法 。 

程序 中 的 变量 N 与 N2 控制 着 基本 图 形 的 大 小 ,XcC 与 
YC 控制 着 基本 图 形 的 显示 位 置 , 要 想 产 生 错位 与 释 加 的 效 
果 ,关键 在 于 控制 这 4 个 变量 。 由 于 子 程序 在 200 名 改变 了 N 
的 值 ,所 以 每 次 进入 子 程序 前 ,必须 给 N 赋值 。 


四 、 追 求 更 多 的 色彩 


利用 绘图 的 色彩 配合 原理 ,我 们 可 以 在 高 分 辨 绘图 中 得 
到 更 多 的 色彩 。 最 简单 的 是 三 种 情况 

(一 ) 两 种 颜色 相配 合 ,产生 一 个 调和 色 ( 间 色 )。 例如: 红 
十 蓝 = 紫 (理论 上 是 青色 ) , 蓝 十 黄 = 绿 , 黄 十 红 王 橙 , 蓝 十 
绿 王 湖 蓝 。 

(二 ) 在 某 一 种 颜色 中 加 入 黑色 ,降低 该 颜色 的 辉 度 产生 
减 小 亮度 的 效果 。 这 种 方法 可 增加 图 形 的 层次 感 。 

(三 ) 在 某 一 种 颜色 中 加 入 白色 ,降低 颜色 的 饱和 度 产生 
色彩 变 淡 的 效果 。 

程序 1-6 就 是 一 个 显示 这 三 种 配色 效果 的 一 个 简单 的 例 
子 。 这 个 程序 用 DATA 语句 提供 颜色 代码 , 画 出 三 个 彩色 拖 

二 


形 。130 句 画 出 屏幕 上 方 的 矩形 ,170 句 画 出 屏幕 下 方 的 矩形 ， 
并 用 文字 分 别 显示 它们 各 自 所 用 颜色 代码 的 值 (180 句 )。140 
一 160 句 则 在 屏幕 当中 画 出 上 下 二 种 颜色 混合 后 的 间 色 的 拢 
形 。 
程序 1-6 
100 REM 高 分 辩 率 彩色 演示 程序 
110 READM:IFEM<OTHEN END 
120 TEXT :READ N: HGR. 
130 HCOLOR= M: FORY = 20 TO 50: HPLOT 100,Y TO 180， 
Y:, NEXT 
140 FORY 一 60ToOoO90STEP 2 
150 HCOLOR 王 M: HPLOT 100,Y TO 180,Y 
160 HCOLOR= N: HPLOT 100,Y 十 1Tol180,Y 十 1:NEXTY 
170 “HCOLOR = N: FOR Y 王 100 To 130:， HPLOT 100,Y TO 
180,Y: NEXT Y 
180 PRINT“HCOLOR1 = ”，M,“HCOLOR 2 一 ”*N: GET A 和 ， 
IF NOT F THEN 110 
190 DATA 1,2,1,3,1,4,1,5,1,6,2,3,2，4， 
200 DATA 2,5,2,6,3,4,3,5,3,6,4,5,4,6,5,6, 一 1 
这 里 介绍 一 下 第 180 句 的 IF NOT EF THEN 110 的 
作用 。 在 BASIC 的 逻辑 判断 中 ,用 零 表 示 假 (False),BASIC 解 
释 程序 根据 IF 后 面 的 逻辑 关系 式 是 否 为 真 (True) 来 决定 程 
序 的 流向 ,任何 非 零 值 都 被 认为 是 真 ,而 使 BASIC 去 执行 
THEN 后 面 的 内 容 。NOT 是 逻辑 “ 非 ? 运 算 , 当 E= 王 0 时 ，NOT 
F 王 1; 当 F 夫 0 时 ,NOT EF=0。 本 程序 对 变量 F 没有 赋 过 值 ， 
由 计算 机 设 定 为 0, 所 以 NOT F=1( 真 ) ,逻辑 运算 的 结果 使 
程序 又 跳 到 110 句 。 在 程序 1-6 中 ,该 语句 相当 于 一 个 GOTO 
e。 12。 


语句 ,但 其 本 质 是 不 一 样 的 ,只 要 给 下 赋 一 个 非 零 值 ,流程 就 
会 改变 。F 这 个 变量 起 着 标志 条 件 (flag _ condition) 的 作用 。 由 
于 色彩 码 M>0, 所 以 我 们 在 数据 结尾 处 放 上 一 个 负数 ,作为 
程序 结束 的 标志 值 。 
苹果 机 与 中 华 学 习 机 的 监控 程序 中 ,有 一 个 搬移 数据 块 
的 MOVE 程序 ,程序 1-7 是 一 个 利用 BASIC 的 字符 串 函 数 ， 
自动 将 数据 存 入 键盘 缓冲 区 ,再 由 MOVE 程序 搬移 与 反复 复 
制 数据 ,很 快 绘 出 许多 花 格 底 色 的 实用 程序 , 它 兼 有 BASIC 
的 简便 与 机 器 语言 的 快速 特点 。 图 1-6 是 程序 1-7 运行 结果 
的 一 小 部 分 ,这 些 花 格 都 是 彩色 的 。 
程序 1-7 
100 REM 高 分 辨 率 花 格 底 色 设置 程序 
110 HI1$ 和 “2000:”:H2 和 $ 一 “N 2004 <<2000, 2FF7M N 
3000:”:H3$ 一 “N 3004 <<3000. 3FF7M?” 
120 HGR 
130 READ A$ : IF A$ 一 “EN”THEN END 
140 READB$:C1$ 一 A$ 十 “十 B$:C2$ 一 B$ 十 “? 
十 A$ 
150 HEX$ 王 HI$ 十 c1$ 十 H2$4 十 c2$ 十 H3$ 十 “N 
D823G?” 
160 FOR I= 1TOLEN (HEX$):B$ =MID$ (HEX 和 $ ,LI， 
1):C = ASC (B$) 十 128: POKE 511 十 IC: NEXT 
170 POKE 72,0: CALL 一 144 
180 FOR WA = 1 TO 1000: NEXT 
190 GOTO 130 
200 DATA“22 11”,“F4 08”,“91 A2”,“C4 88”，“F0 442，“08 
0F”,“F0 C4”,“0F 91? 
。13 。 


210 DATA “55 3F”,“3F 2A”,“2A 3F”,“3F 55”,“22 442,“08 
AL27 28809122 

220 DATA“EE DD”,“BB F7?,“20 55”,“85 AA”,“D0 AF”,“FA 

85”,“AA D5?”,“55 2A? 
230 DATA“C1 A3”,“A5 89”,“9A 432”,“54 18”,“AA D5”,“DF 
AA? ,55 A02,“7F 2A? 

240 DATA “D5 AA”,“55 AA2”,“2A 55”,“55 01”,“0F 0F”“F0 
F02,“AA 0F”,“F0 D52? 

250 DATA“2C 08”,“CD FE”,“55 26”,“5F Al12”,“A0 5F”“F5 
FA2,“D1 4C2” ,“A5 D8?” 

260 DATA“EN? 

程序 中 的 数据 都 是 一 些 十 六 进 制 数 ,空格 是 二 个 数 之 间 
的 分 隔 符 。 数 据 由 READ 语句 赋 给 字符 串 变 量 ,字符 串 数 据 也 
可 以 不 用 双 引 号 ,但 为 了 强调 空格 字符 , 故 每 一 个 字符 串 数 据 
都 使 用 了 双 引 号 ,200 一 250 句 的 DATA 语句 共 提 供 了 24 幅 
画面 的 数据 ,每 两 个 数据 组 成 一 幅 画 面 的 基本 元 素 。 变 量 H1 
$ 中 存放 高 分 辩 页 的 起 始 地 址 ,变量 H2$ 与 H3$ 中 存放 着 
监控 命令 ,每 个 命令 之 间 都 由 空格 作为 分 隔 符 。C1$ .C2$ 与 
HEX$ 则 使 命令 与 数据 ,命令 与 命令 之 间 再 连接 ,组 合成 一 个 
完整 的 命令 字符 串 HEX$ (140、150 句 ) 。 

160 与 170 句 是 在 BASIC 程序 中 使 用 监控 命令 的 一 个 固 
定格 式 , 监 控 命 令 的 具体 内 容 是 由 HEX$ 给 出 的 。 在 160 句 
中 ,由 字符 串 函 数 LENCHEX $ ) 计 算出 由 括号 内 指定 的 字符 
串 变量 的 长 度 ,作为 循环 终 值 。 在 循环 中 ,每 次 从 HEX $ 中 取 
出 由 循环 变量 指定 的 第 工 个 字符 给 B$ ,再 转换 成 ASCII 码 ， 
然后 由 POKE 语句 将 这 种 代码 逐个 输入 键盘 缓冲 区 。 由 于 键 
盘 缓 冲 区 的 起 始 地 址 是 $200(512), 所 以 由 511 十 I 指 定 存 
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111 1 1 TELELIEIIIIEIIEI 公 需 内 属 蚌 十 燥 ， 
生生 天 
TELLEEIEIELEEEIEIEIEEIEIEIEIEIEIEIEIELIEIEII 
贞 遇 员 蚊 届 网 岂 交 六 伺 风 届 六 本 本 汪 放风 光 磺 需 并 民风 国资 网 风 疝 辣 因 大 遇 


本 和 生生 生生 和 和 三 克 和 和 和 王 生生 相生 和 
由 风 上 





放 地 址 .170 句 再 清除 出 错 标 志 后 ,用 CALL 命 令 调 用 监控 
程序 $FF70 去 读 取 、 分 析 键 盘 缓冲 区 中 的 命令 ,并 执行 
命令 .180 句 的 空 循 环 起 延 时 作用 , 它 决 定 每 一 幅 画 面 显 示 
的 时 间 。 

BASIC 解释 程序 在 绘图 过 程 中 ,使 用 零 页 的 $1C(28) 单 
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元 存放 与 色彩 有 关 的 数值 ,这 在 计算 机 术语 中 , 称 为 色 置 
(Color masking)。 程 序 1-8 就 是 利用 随机 数 产生 一 个 数值 ， 
并 将 它 的 整数 部 分 存 入 零 页 的 $ 1C 单元 ,再 用 CALL 命令 直 
接 调 用 BASIC 解释 程序 的 程序 段 ,产生 彩色 条 纹 的 一 个 简单 
例子 , 它 的 速度 是 极 快 的 。 如 果 在 运行 过 程 中 按 下 任意 一 个 
键 ,140 句 在 判断 后 ,就 会 结束 程序 的 运行 。 
程序 1-8 

100 REM 随机 产生 彩 条 程序 

110 TEXT , HOME , HGR 

120 POKE 28,255 x* RND (1) 十 1 

130 CALL 62454 

140 FORI 二 1TO 500, NEXTI 

150 IF PEEK (一 16384) < 128 THEN 120 

160 TEXT , END 


五 、 软 开关 与 指 位 器 


用 HGR 或 HGR2 命令 进入 高 分 辨 图 形 时 ,BASIC 解释 程 
序 首先 设 定 该 图 形状 态 , 然 后 再 把 该 页 所 使 用 的 内 存 全 部 清 
零 。 假 使 该 页 原来 有 图 形 , 你 就 可 能 会 看 到 该 图 形 一 闪 , 然 后 
消失 ,这 就 是 在 先后 执行 上 面 两 个 过 程 。 如 果 要 保留 图 形 ,就 
不 能 使 用 HGR 与 HGR2 命令 ,而 必须 使 用 苹果 机 与 中 华 学习 
机 的 软 开 关 。 

任何 使 用 6502 系列 中 央 处 理 器 的 微型 机 ,都 用 存储 器 映 
象 方式 来 控制 输入 、 输 出 , 即 通过 读 、 写 某 个 指定 的 记忆 单元 
的 方式 ,去 实现 控制 。 所 以 这 种 软 开 关 是 靠 程序 读 、 写 该 地 址 
去 拨 动 的 。 表 1-2 列 出 了 苹果 机 与 中 华 学 习 机 控制 显示 方式 
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的 8 个 软 开 关 的 地 址 与 功能 。 

这 8 个 软 开 关 共 分 成 4 组 , 当 同 一 组 的 一 个 开关 被 触动 
后 , 另 一 个 就 同时 被 关闭 。 

在 BASIC 中 , 读 某 个 存储 单元 的 命令 是 PEEK( 地 址 ), 写 
某 个 存储 单元 的 命令 是 POKE( 地 址 ) ,数学 表达 式 。 对 于 这 8 
个 软 开 关 , 写 仅 是 一 个 形式 ,一 般 都 是 写 入 0, 关 键 是 通过 读 
去 触动 软 开 关 。 

在 BASIC 命 令 中 ,地 址 必须 用 十 进 制 数 表 达 。 在 浮 点 
BASIC 中 ,地 址 可 以 写成 正 数 ,也 可 以 写成 负数 ,习惯 是 用 负 
数 。 如 果 原 来 在 文本 第 一 页 ,要 进入 高 分 辨 第 一 页 ,需要 用 下 
面 命令 来 触动 软 开 关 : 

表 1-2 ”屏幕 显示 方式 软 开 关 


功能 
十 六 进 制 十 进 制 


$Cc050 49232 (一 16304) 显示 图 形 
$c051 49233 (一 16303) 显示 文本 
$$C052 49234 (一 16302) 全 屏幕 状态 
$C053 49235 (一 16301) 图 文 混合 状态 
$C055 49237 (一 16299) | 文本 或 图 形 的 第 二 页 
$Cc056 49238 (一 16298) 低 分 辩 率 
$C057 49239 (一 16297) 高 分 辩 率 


POKE 一 16304,0 〈 设 定 图 形 模 式 ) 


$C054 49236 (一 16300) | 文本 或 图 形 的 第 一 页 





POKE 一 16297,0 〈 设 定 高 分 辩 率 显示 状态 ) 

如 果 原 来 在 高 分 辨 第 一 页 ,要 转 为 显示 高 分 辨 第 二 页 ,只 
需要 触动 选择 第 二 页 的 软 开 关 : 

POKE 一 16299,0 

程序 1-9 是 一 个 交替 显示 第 一 页 与 第 二 页 高 分 辨 画面 的 
演示 程序 ,图 1-7 是 这 两 页 各 自 的 不 同 画面 。170 一 200 句 是 
绘图 子 程序 ,5000 一 5040 是 换 页 显示 子 程序 。 程 序 1-9 在 设 
定 初 值 后 ,首先 画 出 图 1-7 左 半幅 的 图 形 于 第 一 页 ,然后 进入 
高 分 辩 第 二 页 (130 句 ) ,改变 参数 后 ,又 画 出 图 1-7 的 右 半 幅 
图 。 其 中 参数 X0 决定 图 形 的 左边 界 ,XS 决定 图 形 的 抢 形 部 
分 的 宽度 ,YS 决定 矩形 部 分 的 高 度 。 最 后 由 150 一 155 句 执行 
换 页 、 延 时 的 控制 任务 。 


图 1-7 换 页 显示 技巧 


在 上 一 节 中 介绍 的 逻辑 判断 中 所 用 的 真 (True)、 假 
(False) 决 定 流程 的 方法 ,实际 上 也 是 另 一 种 供 BASIC 程序 使 
用 的 软 开关 ,程序 1-9 的 换 页 显示 子 程序 就 是 以 变量 TF 为 开 
关 控 制 变 量 , 自动 更 换 显 示 方 式 的 。5000 一 5040 句 的 子 程序 
很 简单 ,但 它 使 用 了 程序 设计 中 的 两 个 较 好 的 方法 : 

二 


1. 把 变量 TF 作为 一 个 输入 参数 ,由 进入 该 子 程序 前 的 
TF 值 ( 真 与 假 ) ,决定 这 个 子 程序 执行 的 具体 内 容 。 

2. 在 返回 主 程序 前 ,使 TF 反 相 (5040 句 ), 即 反馈 了 一 个 
把 软 开关 拨 到 另 一 端 去 的 信号 。 当 使 用 者 的 程序 要 在 两 个 状 
态 下 交替 运行 (可 以 是 两 段 互 不 相关 的 程序 ) 时 ,使 用 者 只 要 
在 初次 进入 时 , 设 定 TF 的 值 , 以 后 TF 的 值 就 由 计算 机 自动 
设 定 , 给 程序 提供 了 一 个 良好 的 结构 。 


程序 1-9 
100 
110 
120 
125 
130 
140 
150 
152 
155 
160 
170 
180 


190 


200 

5000 
5010 
5020 
5030 


REM 两 页 轮换 显示 
YC 一 25:YS 一 18 
HGT : HCOLOR 王 3 
X0 = 30:XS 一 YS:ST = 100: GOSUB 170 
HGR2 
X0= 120:XS = 4:ST = 10: GOSUB 170 
FORJ 一 1TO 100: GOSUB 5010 
FOR WA 一 1 TO 200: NEXT WA 
NEXT J 
END 
Y1 一 YC 一 YS:Y2 = YC 十 YS 
FOR X 一 X0 TO X0 十 2 * ST STEP ST:X1 一 X 一 XS:X2 
一 X 十 XS 
HPLOT 270,150 TO X2,Y1 TO X2,Y2 TO X1,Y2 TO X1,Y1 
TO X2,Y1 
HPLOT X1,Y2 TO 270,150 TO X2,Y2: NEXT , RETURN 
POKE 一 16304,0: POKE 一 16 297,0 
POKE 一 16302,0 
IF NOT TF THEN POKE 一 16 300,0 
IF TF THEN POKE 一 16299,0 
二 9 污 


5040 IF 天 NOT TFE: RETURN 

使 用 这 种 方法 时 ,不 要 在 其 它 地 方 使 用 TF 这 个 变量 , 防 
止 破坏 程序 结构 。 

对 照 表 1-2, 可 以 看 出 , 当 TF 为 真 时 , 软 开关 将 选择 高 分 
辨 第 二 页 显示 状态 ,否则 就 选择 高 分 辨 第 一 页 。 

在 两 页 轮换 显示 时 ,应 该 先 设置 全 屏幕 显示 状态 ,否则 在 
进入 第 二 页 画面 时 ,会 出 现 四 行 杂 乱 的 字符 ( 那 是 文本 第 二 页 
的 内 容 )。 应 该 说 明 , 表 1-2 的 显示 方式 软 开关 会 直接 影响 视 
频 信号 发 生 器 , 它 不 是 纯 软件 式 的 开关 ,这 与 变量 TF 是 完全 
不 同 的 。 

苹果 机 与 中 华 学 习 机 都 用 零 页 的 $E6(230) 单 元 作为 
BASIC 解释 程序 的 绘图 页 指 位 器 。 当 执行 HGR 时 , $E6 内 的 
值 被 设置 为 # $ 20( 十 进 制 数 32); 当 执行 HGR2 时 , $E6 单 
元 内 的 值 被 设置 为 # $ 40( 十 进 制 数 64) 。BASIC 程序 中 所 有 
的 绘图 语句 都 是 根据 $E6 单元 的 值 ,去 决定 图 形 的 存放 地 
址 。 学 习 了 本 节 的 内 容 后 ,我 们 就 可 以 在 显示 高 分 辨 第 一 页 
时 ,首先 将 $E6 内 的 值 改 为 64, 然 后 用 绘图 语句 将 图 形 先 画 
到 第 二 页 中 去 ;等 画 完 后 ,再 用 软 开 关 拨 到 第 二 页 显示 出 图 
形 。 如 果 此 时 再 将 $E6 的 值 改 为 32, 就 可 以 再 绘图 于 第 一 
页 。 反 复 下 去 ,就 可 以 实现 一 些 简 单 的 动画 创作 ,使 你 的 程序 
更 有 趣 。 


习 题 


1 将 程序 1-1 稍 加 修改 , 绘 出 一 个 与 图 1-8 类 似 的 画面 。 

2. 把 图 1-5 的 中 央 部 分 用 一 个 黑色 的 拖 形 框 覆盖 ,就 形成 了 一 个 
有 沦 边 的 窗口 ,可 以 在 这 窗口 内 显示 中 文 , 显 示 一 道 数 学 题 。 编 制 一 个 程 

全 20 全 





序 , 改 变 一 下 花边 框 的 图 形 。 

3， 如 果 使 程序 1-4 中 的 变量 N 与 N2 的 值 交 换 , 使 N>N2, 再 运行 
程序 1-4, 执 行 后 的 结果 是 否 仍 然 与 图 1-4 相似 ? 为 什么 ? 

4. 将 程序 1-9 的 152 句 删 去 后 ,是 否 还 能 使 两 页 轮换 显示 ? 观察 一 
下 实际 运行 情况 ,然后 加 入 一 句 : 

135 _TEF=1 

再 观察 一 下 运行 结果 。 将 看 到 的 现象 给 予 正确 的 解释 。 
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本 章 首 先 讲述 二 维 平面 坐标 的 几 
种 常用 的 几何 变换 ,然后 讲述 几 个 主 
要 的 几何 图 形 的 画 法 ,结构 化 程序 的 
递归 画 法 ,图 形 的 微分 画 法 与 对 称 画 

法 。 这 些 方法 都 有 利于 提高 程序 的 可 
读 性 ,加 快 程序 的 运行 速度 。 为 了 防止 
重复 ,一 部 分 基本 几何 图 形 放 在 第 三 
章 继续 讲述 。 


一 、 二 维 图 形 的 几何 变换 


图 形 的 几何 变换 是 计算 机 作 图 的 一 个 重要 部 分 。 应 用 几 
何 变换 ,可 以 改变 图 形 的 位 置 , 大 小 和 方向 ,使 一 个 简单 的 图 
形 ,通过 转换 和 组 合 , 构 成 一 幅 相 当 复 杂 的 图 形 。 

二 维 图 形 的 几何 变换 主要 有 平移 .比例 对称、 旋转 , 设 
(X,7) 是 笛 卡 尔 平面 上 的 一 个 点 的 坐标 ,经 过 变换 后 的 点 的 
坐标 为 (X ,7)。 
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(一 ) 平移 变换 


二 维 直角 坐标 系 中 的 点 WCX,7) 沿 方向 平移 一 个 常量 
Xe, 沿 工 方向 平移 一 个 常量 re, 得 到 移动 后 的 点 Mr 新 坐标 
CC ,7), 它 的 表达 式 是 

一 和 十 Xe 

王 7 了 十 yc 


(二 ) 比例 变换 


二 维 直 角 坐 标 系 中 的 一 点 M(CX,7), 沿 开 方 向 移动 有 一 
个 比例 系数 4, 沿 工 方向 移动 有 一 个 比例 系数 B, 则 变换 后 的 
坐标 点 M (X ,三 ) 的 表达 式 是 

和 一 4X 

关 一 B7 


4 与 了 又 被 分 别称 为 横向 放大 率 与 纵向 放大 率 。 
(三 ) 对 称 变换 


图 形 以 X 轴 为 对 称 轴 作对 称 变换 (图 2-1(1)) ,变换 后 的 
坐标 点 (X , 王 ) 与 变换 前 的 坐标 点 (和 X, 妇 的 变换 关系 为 

天 ' 庆 光 

也 一 一 了 

图 形 以 工 轴 为 对 称 轴 作 对 称 变换 (图 2-1(2)) ,变换 后 的 
坐标 点 (X ,7 了) 与 变换 前 的 坐标 点 (X,7) 的 变换 关系 为 

和 一 一 

天 二 天 

图 形 以 原点 为 对 称 点 进行 变换 后 的 坐标 点 (和 ,7) 与 变 
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换 前 的 坐标 点 C(X,7) 的 变换 关系 (如 图 2-1(3) ) 为 
以 一 一 斑 
到 一 一 了 





人 
NI4 


(1) (2) 〈3) 








(GD 对 区 轴 的 对 称 变换 《〈2? 对 了 轴 的 对 称 变换 〈3)? 对 原点 的 对 称 变换 
图 2-1 对 称 变换 


(四 ) 旋转 变换 


一 个 图 形 僻 原点 道 时 钟 旋 转 0 角 ( 图 2-2) ,变换 后 的 坐标 
点 (X ,六 ) 与 变换 前 的 坐标 点 (X,Z) 的 变换 关系 为 
X' -= Xcos0O-- sjin0 


了 ==XSinl 十 ooSO 

(五 ) 复合 变换 

复合 变换 , 即 同时 进行 上 述 四 种 变换 中 的 几 种 变换 。 

由 于 屏幕 坐标 的 原点 在 屏幕 的 左上 和 角 , 所 以 在 计算 机 作 


图 中 ,一 般 总 要 进行 平移 变换 ,相当 多 的 作 图 中 都 要 同时 进行 
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几 种 变换 。 

为 了 更 具体 
地 了 解 变 换 在 计 
算 机 作 图 中 的 应 
用 ,我 们 举 两 个 
比较 简单 的 例 
子 。 

例 1 图 
2-3 是 以 比例 变 
换 为 主 ,以 “ 当 ?” 
构架 为 基本 形 








状 , 采 用 折线 连 
接 的 画 法 ,通过 
图 2-2 ”旋转 变换 7 次 循环 ,逐次 
改变 横向 放大 倍 


数 4 的 值 ( 由 0 一 18, 每 次 增加 3) , 画 出 7 个 相似 的 图 形 ,这 些 
图 形 三 加 在 一 起 ,产生 了 变化 有 致 的 效果 。 
下 面 是 程序 清单 ; 


程序 2-1 


100 
110 
120 
130 
140 
150 


REM 二 维 坐标 的 比例 变换 

X0 3:Y1 0:Y2 159 

HGR : HCOLOR 王 3 

FOR A 王 0TO20STEP3 

X 一 AxX0:IEFEX>139THEN 160 

HPLOT 139 一 X,Y2 TOX,Y1 TO 279 一 X,Y2 TO 139 十 

X,Y1 TO 139 一 X,Y2TO139 十 X,Y2TO 139 -一 X,Y1 TO 

X,Y2 TO 139 一 X,Y1TO 139 十 X,Y2TO 279 -一 X,YlTO 
* 2DD。 








X,Y2 
160 NEXT A:; END 





了 次 ] 
AN 玫 WA 4 


图 2-3 用 比例 变换 方式 和 加 而 成 的 图 


例 2 图 2-4 以 三 角形 为 基本 图 形 ,通过 改变 比例 系数 ,向 同 
一 方向 画 出 10 个 逐渐 伸展 变 大 的 相似 三 角形 ,这 是 由 程序 
2-2 中 的 150 句 至 200 句 的 程序 段 来 实现 的 ,由 180 句 实现 比 
例 变换 。(CXP,YP) 与 C(XN,YN) 分 别 是 变换 后 的 三 角形 的 2 个 
顶点 坐标 ; (XC,YC) 是 三 角形 的 另 一 个 顶点 坐标 ,同时 也 是 旋 
转 中 心 。 图 2-4 又 同时 用 等 差 级 数 来 进行 旋转 变换 ,每 次 旋转 
36", 这 由 130 句 的 变量 TH(b) 来 控制 。 通 过 比例 系数 K 的 等 
比 变化 与 角度 CIx* TH) 的 变化 ,造成 了 图 象 重 伙 旋 绕 与 辐射 
的 效果 。 使 用 等 比 级 数 时 , 初 值 不 能 为 0。 在 给 定 三 角形 的 2 
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个 顶点 的 初 值 后 ,K 的 初 值 越 大 ,中 心 的 稀疏 区 也 越 大 。 










Ne 


击 有 
| SS 全 


Na 司 攻 NR 
SS 汉 汉人 
NS 


图 2-4 用 比例 变换 与 旋转 变换 组 合成 的 图 


程序 2-2 
100 REM 二 维 坐标 的 旋转 与 比例 变换 
110 HGR2 , HCOLOR= 3:XC = 140:YC 一 95 
120 X1 = 90:Y1 = 30:X2 = 20:Y2 =- 60 
130 N 一 10:TH 一 8 x* ATN (1) /N 





140 FORI 王 0TON 一 1:CT 王 COS (Ix* TH):ST 一 SIN (I * 
TH) 
150 开 一 0.4 
=。 27 。 


160 
170 
180 


190 


200 
210 


XP 一 XlLx*CT 一 YL * ST:YP 一 XI x* ST 十 Yl x* CT 
XN 一 X2 xx CT 一 Y2 xx ST:YN 一 X2 xx ST 十 Y2x CT 
XP 一 久 x* XP:YP 一 Kx* YP:XN 一 儿 * XN:YN 王 开 x 
YN 

HPLOT XC,YC TO XC 十 XP,YC 一 YPTOXC 十 XN,YC 一 
YN TO XC,YC 

KK 一 1.1*K:IFEK<1THEN 160 

NEXT I:END 


二 、 直 角 坐 标 轴 的 绘制 


为 了 在 屏幕 上 显示 直角 坐标 轴 , 可 以 编制 一 个 子 程序 , 根 
据 指定 的 坐标 原点 与 窗口 ,动态 地 绘制 。 程 序 2-3 的 1000 名 
绘 X 轴 ,1010 句 绘 轴 。(XC,YC) 是 原点 的 屏幕 坐标 , (XL， 
YC) 与 (XR,YC) 分 别 是 X 轴 的 左 端 与 右 端的 屏幕 坐标 , (XC， 
YT) 与 (XC,YB) 分 别 是 Y 轴 的 上 端 与 下 端的 屏幕 坐标 。 


程序 2-3 
100 
110 


REM 直角 坐标 轴 
HGR2: HCOLOR 一 3:XC = 140:YC 一 95:XL = 5:XR 一 
270:YT = 5:YB = 186: GOSUB 1000: END 


1000 HPLOT XL,YC TO XR,YCTO XR - 6,Yc - 2TOXR 一 
6,YC 十 2: HPLOT XR,YC TO XR 一 6,YC 十 2 
1010 HPLOT XC,YB TO XC,YT TO XC 二 2,YT 十 6 TO XC 十 
2,YT 十 6; HPLOT XC,YTTOXC 十 2,YT 十 6 
1020 RETURN 
人 的 绘制 方法 
圆 轨迹 的 参数 方程 是 


。28 。 


玉 一 RicosO 

了 一 Rsin0 

在 BASIC 程序 中 ,三 角 函 数 的 角度 必须 使 用 弧度 。 绘 制 
圆 的 最 简易 的 方法 是 采用 逐 点 描绘 ,角度 从 0 开始 ,逐次 增 
加 ,直至 2r。 这 种 方式 的 优点 是 直观 ,过 程 清 楚 。 一 般 都 使 用 
FORVNEXT 循环 ,点 与 点 之 间 的 间隔 由 STEP( 步 长 ) 决 定 。 
程序 2-4 

100 HGR : HCOLOR 王 3 

110 FORI 王 0 TO 2x*3.1416 STEP 0.025 

120 HPLOT 140 一 75x*COSGD)，80 一 75x*SIN (JI) 

130 NEXTI 

140 GET A$ : TEXT : END 

程序 2-4 执行 较 慢 的 主要 原因 是 每 绘制 一 个 点 ,都 要 进 
行 两 次 三 角 函 数 运算 ,我 们 可 以 根据 圆 的 对 称 性 ,减少 运算 次 
数 。 从 图 2-5 可 以 看 出 , 圆 上 有 8 个 对 称 点 。 由 其 中 一 点 的 坐 
标 (XK,7) ,可 以 确定 其 它 7 个 点 的 坐标 。 因 此 圆 弧 上 的 所 有 坐 
标点 ,都 可 以 用 圆 上 0 到 </4 的 点 的 坐标 值 (X,7) 给 予 确定 。 

程序 2-5 就 是 一 个 使 用 8 点 对 称 法 的 绘 圆 程序 , 它 的 结 
构 与 程序 2-4 相同 ,但 速度 却 要 快 得 多 。 
程序 2-5 


100 XC=140 : YC 一 80 : R 一 75 
110 HGR:, HCOLOR = 3 
120 FORI 一 0TO3.1416/4 STEP 0. 025 
130 HPLOT XC 一 X,YC 一 Y : HPLOT XC 一 Y，YC 一 X 
140 HPLOT XCTX,YC 一 Y : HPLOT XC 二 Y,YC 一 X 
150 HPLOT XC 十 X,YC 十 Y : HPLOT XC 二 Y,YC 十 X 
160 HPLOT XC 一 X,YC 二 Y :HPLOT XC 一 Y,YC 十 X 
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图 2-5 圆 的 8 个 对 称 点 


170 NEXTI 
180 GET A$ : TEXT : END 
是 否 能 够 进一步 加 快 画 圆 的 速度 呢 ? 我 们 可 以 把 圆 的 参 
数 方程 写 为 
X; 一 cos0 
六 一 PRsinb0， 
如 果 角 度 9 每 次 的 增 量 为 Ag, 那 么 下 一 个 点 的 坐标 为 
Xi+1 一 PRcosO1 一 Rcos(0 十 AO) 
7 一 Rsin0 一 Rsin(0 十 AO) 
根据 三 角 函 数 公式 ,可 以 将 上 面 两 式 改 成 
Xi+1 一 Ecosbicos(A0) 一 Psinbisin(AO) 
一 Xicos(A0) 一 也 sin(AO) 
7 一 Rsinbicos(A0) 十 Rcosbisin(AO) 
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一 六 cos(A0) 十 Xisin(AO) 

若 选 定 Ab 为 某 一 常数 ,并 令 ST 王 Ag,CD 一 cos(Ab) ,SD 一 
sin(Ab) ,就 得 到 了 一 个 圆 的 递归 式 : 

有 +1 一 Xi。CD 一 六。SD 

7i+1 一 Xi。SD 十 天。CD 

现在 的 运算 ,只 剩 下 简单 的 乘法 运算 与 加 减 运算 。 只 要 知 
道 一 个 点 的 坐标 ,就 可 以 递 推 出 下 一 个 点 的 坐标 .将 上 面 两 个 
式 子 写成 BASIC 表达 式 

X 一 Xx*CD 一 Yx*SD 

YY 一 Xx*SD 二 Yx*CD 

如 果 直 接 使 用 这 两 个 式 子 ,程序 的 结果 还 无 法 正确 。 因 为 
前 一 个 赋值 语句 改变 了 X 之 值 ,使 后 一 个 赋值 语句 失去 了 原 
始 数据 X。 这 是 一 个 很 容易 被 忽视 ,而 又 不 容易 被 查 出 的 错 
误 。 为 了 保证 运算 正确 , 先 要 把 第 一 个 被 赋值 的 变量 和 的 值 
保存 起 来 ,可 以 加 入 一 个 中 间 变 量 T, 起 保存 与 传递 的 作用 : 

工 一 叉 

X 一 Xx*CD 一 Yx*SD 

Y=Tx*SD 二 Y * CD 

程序 2-6 同时 使 用 了 递归 画 法 与 8 点 对 称 画 法 。 程 序 2- 
6 中 的 变量 P 是 角度 变化 的 终 值 ,P=ATN(1)=A/4; 变 量 ST 
是 角度 的 增 量 。 由 于 角度 的 初 值 为 0, 所 以 坐标 的 初 值 X 一 
Rcosg 一 R,Y 王 Rsint 一 0。 角 度 变 量 K 在 程序 2-6 中 仅 起 计数 作 
用 , 当 K>r/4 时 ,就 终止 循环 。 

程序 2-6 与 程序 2-4 相 比 ,在 程序 结构 上 没有 大 的 区 别 ， 
主要 是 优化 了 算法 。 读 者 用 K 作为 循环 变量 名 ,把 程序 2-6 改 
成 用 FORVNEXT 循环 结构 ,就 可 以 更 清楚 地 看 到 这 一 点 。 
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程序 2-6 

100 REM 圆 (8 点 递归 法 ) 

110 R 王 80:X 王 R:Y 一 0:XC 一 140:YC 一 96 

120 P= ATN (1):ST 王 P/45:SD 一 SIN (CST):CD 一 COS 

(CST) 

130 HGR : POKE 一 16302,0: HCOLOR 王 3 

140 HPLOT XC 一 X,YC 一 Y: HPLOT XC 一 Y,YC 一 和 

150 HPLOT XC 一 X,YC 十 Y:, HPLOT XC 一 Y,YC 十 X 

160 HPLOT XC 十 X,YC 十 Y: HPLOT XC 十 Y,YC 十 X 

170 HPLOT XC 十 X,YC 一 YY: HPLOT XC 十 YYC 一 和 

1807 下 一 :到 

190 XXXx* CD 一 Y:x* SD 

200 YYx* CD 二 TSD 

210 KK 一 K 十 ST:IFK<<PTHEN 140 

220 GET A 和 $ : TEXT : END 

如 果 要 绘制 实心 圆 , 这 时 如 果 仍 然 采 用 参数 方程 来 描述 
圆 的 轨迹 ,绘图 速度 将 由 于 角度 的 增 量 ST 无 法 取得 适当 ,而 
使 速度 变 慢 .为 了 防止 重复 运算 造成 慢 速度 ,就 应 该 用 解析 式 
来 描述 圆 :大 十 于 一 记 。 此 时 X 一 V 民 - 灵 ， 人 
数 也 会 使 绘图 速度 变 慢 ,所 以 我 们 可 以 通过 微分 法 求 得 式 
7 的 关系 式 , 这 里 不 再 详 述 ,只 给 出 结果 。 

7 一 六 十 47 王 天 十 ] 

Xi 一 抑 十 4X 一 马 一 吉 

没有 学 过 微分 学 的 读者 ,只 要 记 住 这 个 结论 就 行 了 。 ， 
分 法 ,再 结合 前 面 叙 述 的 8 点 对 称 法 编 出 程序 2-7, 绘 制 一 
半径 为 95( 最 大 半径 ) 的 实心 圆 ,只 需要 约 6 秒 钟 的 时 间 。 
序 2-7 中 的 变量 S7 就 是 47,BN 就 是 当 0%= 王 /4 时 的 工 的 终 
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值 ,为 了 防止 在 数 制 转换 中 丢失 边界 值 , 所 以 120 句 在 最 后 加 
了 一 个 微小 的 常量 0. 1。 


程序 2-7 


100 
110 


REM 实心 圆 (8 点 微分 法 ) 
R 一 95:Y 一 0:X 王 R:XC 一 140:YC 一 95 





120 EN 一 SQR (2) * R/2 十 .1 
130 TEXT : HOME : HGR : POKE 一 16302,0: HCOLOR 王 3 
140 HPLOT XC 一 X,YC 一 YTOXC 十 X,YC 一 立 
150 HPLOT XC 一 X,YC 十 YTOXC 十 XYC 十 YY 
160 HPLOT XC 一 YYC 一 XTOXC 十 Y,YC 一 X 
170 HPLOT XC 一 Y,YC 十 XTOXC 十 YYC 十 X 
180 一 和 一 Y/X 
190 YY =Y 十 1:IFEY<ENTHEN 140 
200 GET A$ :TEXT ， END 

四 、 椭 圆 的 绘制 方法 
椭圆 的 参数 方程 是 
及 一 4cosO 
一 Bsin0 


当 4 一 了 时 ,这 个 参数 方程 就 是 圆 的 参数 方程 , 圆 是 椭圆 
的 一 个 特例 。 从 图 2-6 可 以 看 出 ,椭圆 具有 4 个 对 称 点 。 为 了 
也 能 使 用 圆 的 8 点 对 称 法 , 先 分 析 一 下 椭圆 与 圆 之 间 的 变换 


关系 : 


设 开 王 4/ 有 , 则 和 X 一 4cos0 一 KBcosb， 即 元 一 Becos0。 今 5 一 玉 ， 


X 一 元, 则 有 梢 圆 参数 方程 ， 
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图 2-6 椭圆 的 8 点 对 称 画 法 


和 一 Rcosb 

了 一 Rsin0 

也 就 是 说 ,只 要 在 绘图 时 ,将 椭圆 的 水 平 坐标 值 乘 上 一 个 
比例 系数 到, 就 可 以 借用 圆 的 参数 方程 来 实现 各 种 运算 。 这 
样 ,就 可 以 借用 上 一 节 所 使 用 的 8 点 对 称 法 .递归 法 来 绘制 机 
圆 。 需 要 注意 ,现在 所 说 的 8 个 对 称 点 是 以 圆 为 基础 的 ,由 图 
2-6 可 以 看 出 ,再 通过 比例 变换 映射 到 椭圆 上 的 8 个 点 ,实际 
上 并 非 处 于 与 角 对 应 的 位 置 。 

程序 2-8 就 是 一 个 采用 8 点 对 称 递归 法 绘制 覃 圆 的 程 
序 。 它 的 结构 与 程序 2-6 极为 相似 ,区 别 主要 在 150 一 190 句 ， 
150 的 X1=KxX:Y1= 王 KxY 就 是 将 两 个 水 平 坐标 值 分 别 乘 
上 比例 系数 开 , 供 160 一 190 句 使 用 。 

有 兴趣 的 读者 可 以 使 用 椭圆 的 微分 法 绘制 实心 椭圆 。 
程序 2-8 

100 REM 椭圆 (8 点 递归 法 ) 

110 P 王 ATN (1):ST 王 P/45:P 一 P 十 .001 
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120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 


在 这 一 节 中 ,我们 研究 圆 的 内 接 正 多 边 形 的 画 法 。 这 一 节 
的 重点 是 学 习 如 何 使 用 程序 2-9 的 子 程序 。 程 序 2-9 的 2000 
一 2040 句 是 绘制 一 个 正 N 边 形 的 子 程序 。 它 的 输入 参数 XC 
与 YC 给 出 这 个 N 边 形 的 几何 中 心 耻 给 出 正 N 边 形 的 外 接 
圆 的 半径 ;BE 给 出 起 始点 的 弧度 值 ;ST 是 角度 的 增 量 。2000 
名 首先 绘 出 起 始点 ,2010 一 2030 句 采 用 绘制 折线 的 方法 , 绘 
出 一 个 正 N 边 形 。 变 量 P=2r。 为 了 了 解 变量 BE 的 作用 , 程 
序 2-9 同时 绘制 了 两 个 互相 颠倒 的 图 形 。 图 2-7 的 左 半 部 分 ， 


SD 一 SIN (ST):CD 王 COS (CST) :XC 一 140:YC 一 96 
A 一 120:B 王 80:K 王 A/B:X 一 B:Y 一 0 

HGR : POKE 一 16302,0: HCOLOR 一 3 

X1L 一 民 x* X:YL1 一 民 x* 了 

HPLOT XC 十 X1,YC 一 Y: HPLOT XC 十 Yl,YC 一 和 
HPLOT XC 一 Yl,YC 一 X: HPLOT XC 一 XlYC 一 了 
HPLOT XC 一 X1),YC 十 了 Y: HPLOT XC 一 Yl1,YC 十 习 
HPLOT XC 十 Yl,YC 十 X:, HPLOT XC 十 Xl,YC 十 立 
T 王 共 

X 一 Xx* CD 一 Yx* SD 

Y=Yx 上 CD 二 +T 上 SD 

也 一 E 十 ST:IFEE<PTHEN 150 

GET A$ : TEXT : END 


五 、 多 边 形 


BE 一 也 zi 右 半 部 分 BE 一 也 rr。 由 于 BE 取 值 的 不 同 ( 相 位 相差 


z) ,使 这 两 个 图 形 互相 颠倒 .将 140 句 与 150 句 的 BE 之 值 ,分 
别 改 为 0 与 ~, 就 可 以 得 到 两 个 左右 对 称 的 图 形 。 当然 也 可 以 
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通过 改变 BE, 使 图 形 倾 斜 。130 句 的 ST 王 P/N ,就 是 将 2r 等 
分 成 N 等 分 , 它 是 控制 N 边 形 的 关键 。 由 于 每 次 循环 完毕 之 
前 ,都 要 执行 N=N 十 1(160 句 ) ,而 且 半径 R 也 每 次 增加 7， 
才 使 程序 2-9 绘 出 的 图 形 更 富 于 变化 。 当 N 的 值 较 大 时 (例如 
N= 王 36) ,程序 2-9 的 子 程序 就 变 成 了 画 圆 的 子 程序 ,所 以 这 
一 节 也 是 对 本 章 第 三 节 “ 圆 的 绘制 方法 ”的 一 个 补充 。 


爸 


图 2-7 正 多 边 形 与 方位 控制 


程序 2-9 
100 REM 多边形 与 对 称 
110 HGR ;:HCOLOR 一 3 
120 YC 一 95:N 一 3:P 一 8* ATN (1) 
130 FORR=10TO70STEP7:ST 王 P/N 
140 XC 一 70:BE 一 3 * P/4: GOSUB 2000 
150 XC 一 209:BE 天 P/4: GOSUB 2000 
160 N 王 N 十 1:NEXTR: END 
2000 HPLOT XC 十 R x* COS (BE),YC 一 人 x* SIN (BE) 
2010 FORTH 王 BE 十 STTOBE 十 P 十 .001STEPST 
“36。 


2020 HPLOT TO XC 十 R * COS (TH),YC 一 R* SIN CTH) 
2030 NEXT TH 
2040 RETURN 


六 、 妆 形 


在 这 一 节 中 ,我 们 研究 萎 形 的 画 法 。 凌 形 是 一 种 富有 装饰 
性 的 基本 几何 图 形 .从 数学 的 角度 看 , 它 是 椭圆 的 长 轴 与 短 轴 
的 端点 的 四 条 连接 线 。 由 于 它 有 自己 独特 的 对 称 特 性 ,可 以 编 
一 个 专用 的 坐标 变换 程序 ,加 快 绘图 速度 。 从 图 2-8 可 以 看 
出 , 覃 圆 的 长 轴 ( 或 短 轴 ) 的 两 个 端点 坐标 ,总 是 绝对 值 相同 ， 
符号 相反 。 又 因为 已 一 Beos| 至 +9| = 一 in 一 一 性 。Jdsinb 


已 已 
一 Bcosb 一 本 。 4cos0 一 本 X; 令 开 





甩 。 . 
二 一 可 太史 二 Psin 





= 二 , 则 天 一 一 7 一 Kx。 所 以 短 轴 的 两 个 端点 坐标 CXs， 
2 ) 与 (一 台 , 一 疡 ) 可 以 用 长 轴 的 端点 坐标 与 比例 常数 到 来 
表示 :; (一 Km,AKXID 与 CC ,一 KXD)。 用 一 句 绘制 折线 的 BA- 
SIC 语句 ,就 可 以 画 出 一 个 菱形 。 

如 果 将 坐标 的 X 值 与 工 值 交换 位 置 , 也 就 是 将 (Xi 六) 
改写 成 (万 ,Xi ) ,将 (一 Xi 一斑) 改写 成 (一 六 ,一 和 ) ,将 
(一 KKXD 改 写成 (KR ,一 Km ,将 CE 一 KR D) 改 写成 
(一 KXi ,AT ) ,就 相当 于 蒙 形 绕 几 何 中 心 旋 转 90"。 程 序 2-10 
就 是 运用 了 这 个 特性 ,为 了 使 互相 垂直 的 蒙 形 交替 出 现 ,采用 
了 逻辑 非 运算 :TFE=NOT TF( 见 程序 2-10 的 190 句 与 图 2- 
9) ,每 执行 一 次 该 语句 ,变量 TF 之 值 就 由 1( 真 ) 变 为 0( 假 )， 
或 者 由 0( 假 ) 变 为 1( 真 )。 当 TF=0 时 ,170 句 的 NOT TEF 为 
。 37。 









(X2，7z) 


(一 为 ,一 六 7 
(一 X2, 一 Z2) 


图 2-8 萎 形 的 画 法 (一 ) 


真 , 就 绘 出 一 个 直立 的 蓉 形 ; 当 TF=1 时 ,180 句 ( 绘 制 旋转 
90* 的 莹 形 ) 的 绘图 语句 才 会 被 实行 。 循环 变量 XC 与 YC 控制 
蓉 形 的 几何 中 心 的 变化 。 循 环 变量 SB 控制 凌 形 图 形 纵 向 的 密 
度 变 化 , 它 的 变化 组 成 了 7 幅 与 图 2-9 类 似 的 画面 。 
程序 2-10 
100 REM 姜 形 的 画 法 之 一 
110 A 一 40:B 一 20:K 一 BV/A 
120 Xl 一 A:Y1 一 0:X2 一 一 Kx Yl:V2 一 Kx XI] 
130 FOR SB = 0.5 TO 2 STEP . 25 
140 HGR2 , HCOLOR 一 3 
150 FOR YC 一 ATO191 一 ASTEPSB x* B 
160 FOR XC 一 ATO 279 一 ASTEP 0.8 * 和 
170 IFENOT TF THEN HPLOT XC 十 Xl,YC 十 Yl1TOXC 十 X2， 
YC 十 Y2 TO XC 一 Xl,YC 一 Y1 TO XC 一 X2,YC 一 Y2 
TO XC 十 Xl,YC 十 Yl 
180 IF TEF THEN HPLOT XC 十 Yl,YC 十 XITOXC 十 Y2,YC 
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十 X2 TO XC 一 Yl,YC 一 XI TO XC 一 Y2,YC 一 X2 TO 
XC 十 Yl',YC 十 X1 

190 TEF = 王 NOT TF:NEXT XC,YC 

200 FOR W = 1TO 500, NEXT W: NEXT SB: GET A$: 
TEXT: END 





图 2-9 萎 形 的 组 合 

现在 ,我 们 再 来 研究 如 何以 蓉 形 的 一 个 端点 作为 旋转 中 
心 , 并 取 攻 形 的 中 心 (K,Z) 作 为 基准 。 根 据 图 2-10, 很 容易 得 
到 X4 一 2X, 了 4 一 27; XI 一 X 一 开 7 ,7 一 了 十 KX;X? 一 X 十 K7， 
郊 王 7 一 KX; 其 中 天 一 B/4。 莹 形 的 旋转 中 心 为 坐标 原点 。 在 
取得 3 个 坐标 点 (X4,74)、(CX ,Zi)、(CX: ,yz) 后 ,再 用 坐标 的 平 
移 变换 ,将 旋转 中 心 移 到 坐标 点 C(XC,7C) 处 。 

为 了 使 由 六 形 组 成 的 图 案 更 富 于 变化 韵味 ,程序 2-11 用 
随机 数 给 出 2 个 椭圆 的 长 半 轴 与 短 半 轴 之 值 , 再 由 150 一 240 
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图 2-10 萎 形 的 画 法 (二 ) 


句 绘 出 一 个 由 两 个 莹 形 组 合成 的 图 案 。 图 2-11 就 是 一 个 例 
子 。 程 序 的 180 一 230 句 先 求 出 3 个 坐标 点 CX4,7a) 、(CX， 矿 )、 
(CX2,7) 的 经 过 平移 后 的 值 , 然 后 绘 出 一 个 菱形 。160 一 170 句 
则 根据 循环 变量 I 的 奇偶 判断 ,轮流 绘 出 两 个 萎 形 中 的 一 个 。 
而 每 次 转 过 的 角度 , 则 由 随机 数 N 决定 。 为 了 保证 两 个 葵 形 
出 现 的 次 数 相 同 ,N 必须 是 一 个 偶数 。 程 序 2-11 能 够 产生 30 
幅 不 同 的 葵 形 图 案 , 这 是 由 120 名 的 循环 变量 M 的 初 值 和 终 
值 决定 的 。 
程序 2-11 

100 REM 萎 形 的 画 法 之 二 

110 XC 一 140:YC 一 95:P 一 2 * ATN (1) 

120 FOR M =1TOoO30: HGR2 : HCOLOR 一 3 

130 N 一 4 十 2* INT(20 * RND(l)):T 一 4x* 了 P/N 

140 Al 一 30 十 15 * RND(1):B1 王 15 十 20* RND(1L):A2 

一 10 十 35 * RND(1):B2 王 10 十 15 * RND(1) 
40 。 


150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 


FORI 王 0TON 
IFI/2=INTG/2)THENA 一 Al:B 一 Bl 
IFI/2=()INTGI/2)THENA 一 A2:B 一 了 B2 
玉 王 B/A 

X 王 A:xCoS(I* T):Y 一 A:x SIN(I:x* TI) 
XA 一 XC 十 2 *X:YA 一 YC 十 2 *Y 

X1 一 XC 十 X 一 Kx*Y:Y1 一 YC 十 Y 十 攻 * X 
X2 一 XC 十 X 十 Kx Y:Y2 一 YC 十 Y 一 kx 入 
HPLOT XC,YC TO X1l,Y1 TO XA,YA TO X2,Y2 TO XC,YC 
NEXT I: FOR W 王 1TO1000: NEXT W 

NEXT M: GET A$ :TEXT : END 





图 2-11 菱形 组 成 的 图 案 


4 


习 ”是 
1 以 屏幕 坐标 (10,24) 为 三 角形 的 一 个 顶点 ,并 使 三 角形 的 另外 
二 个 顶点 (Za,72) 与 (Xs,7s) 沿 水 平方 向 作 比例 变换 , 画 出 一 串 等 腰 三 角 
形 。 
2. 用 几 种 绘 圆 的 方法 ,绘制 同一 个 圆 环 , 并 使 圆 环 体 为 实心 半径 
9! 与 w 之 值 由 你 自己 选择 。 





图 2-12 视 幻 图 


3. 绘 出 图 2-12。 绘 制 这 个 图 形 的 一 个 简单 方法 是 将 绘制 正方 形 
与 绘制 圆 作 为 两 个 子 程序 ,用 颜色 1 绘制 一 个 实心 的 正方 形 , 再 用 颜色 
2 绘制 一 个 实心 的 内 切 圆 。( 提 示 :每 个 正方 形 的 边 长 等 于 这 个 正方 形 的 
内 切 圆 的 直径 ,每 个 圆 的 半径 等 于 这 个 圆 的 内 接 正方 形 的 边 长 的 (1/ 
V 2 )。 
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和 媳 < 和 芽 < 适 < 征 < 光 < 讶 < 这 < 省- 这 < 迁 <- 讶 < 脖 < 代 < 逮 < 媳 <- 妈 < 涝 <- 逮 <- 媳 < 
本 章 将 讨论 一 些 主要 的 数学 图 象 
的 绘制 。 为 了 方便 初学 者 学 习 BASIC 
程序 ,本 章 使 用 了 几 种 不 同 的 编程 方 
法 ,并 且 作 了 简单 介绍 ,同时 介绍 了 一 
些 教学 图 象 的 绘制 技巧 与 应 用 实例 。 


: 隐 : 避 :了 入: 如 :了 如: 录 : 了 如: 如: 如: 陷 : 避 :了 兆 : 如 :如 :如 :如 :如 :如 :如 


抄 乓 捷 生 所 乓 乓 和- 人 
浓 也 也 涩 如 驻 泡 也 : 泡 了 沪 狗 


一 、 奇 妙 的 正弦 曲线 


周期 是 自然 界 的 一 个 普遍 规律 。 某 些 生物 的 节律 可 以 近 
似 地 用 正弦 函数 来 描述 ， 

了 一 4 十 4sin(ot 十 mp) 

一 般 把 工 之 值 为 负 时 的 区 域 , 作 为 低潮 区 。 例 如 有 些 动 
物 昼 伏 夜 出 ,那么 白天 就 是 低潮 区 。 

在 周期 函数 图 象 的 绘制 中 ,有 一 个 重要 的 问题 ,就 是 如 何 
控制 增 量 , 使 个 周期 的 轨迹 恰好 占 满 屏幕 窗口 的 宽度 。 如 
果 窗 口 的 净 宽 度 为 灰 , 林 数 周期 为 C, 屏 幕 坐 标的 水 平 增 量 为 
Xs, 那 么 函数 的 增 量 忆 必 然 满足 下 面 的 比例 式 : 

二 二 全 ”CE 
8 琵 
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一 般 取 屏幕 坐标 的 水 平 增 量 闷 =1。 现 在 ,让 我 们 在 一 个 
宽 为 克 王 261 ,高 为 四 r 一 151 的 窗口 内 同时 绘制 2 个 振幅 相 
同 的 正弦 波 ,其 中 一 个 波 的 频率 正好 是 另 一 个 波 的 4 倍 ,并 且 
使 频率 较 低 的 正弦 波 恰 好 在 窗口 内 显示 出 一 个 完整 的 波形 。 
要 实现 这 一 点 ,只 需 令 X=1 即 可 .正弦 函 数 的 周期 C= 2z, 根 
据 2r 一 8arctg(1) 的 关系 式 , 我 们 可 以 通过 BASIC 内 部 的 反正 
切 函 数 , 让 计算 机 取出 BASIC 解释 程序 内 部 存放 的 之 值 ， 
以 提高 运算 的 精度 。 代 入 上 式 , 得 函数 增 量 

疡 一 MV。Xs CC 8NV。Xs。arctg(]1) 

琵 琵 

为 了 便于 读者 修改 ,我 们 仍然 保留 了 w 与 Xs 两 个 变量 。 
程序 3-1 中 的 XL、XR 是 显示 器 的 左右 边界 ,XT、XB 分 别 是 
窗口 的 顶端 与 底 端 。120 一 190 句 的 子 程序 根据 给 定 的 窗口 宽 
度 W ,高 度 WwWH, 以 及 窗口 的 中 心 坐 标 (XC,YC) 绘 出 窗 框 。 第 
50 名 的 N2=4N 使 两 个 正弦 波 之 间 保 持 4 倍 频 关 系 。 
程序 3-1 

5 REM 在 显示 窗口 内 绘制 正弦 曲线 

10，XC = 140:YC 三 80 

20 HGR :， HCOLOR 一 3 

30 WwW 一 261:WH = 151: GOSUB 120 

40 A 王 76 

50 N=1:XS 王 1:N2 王 4x* N 

60 P 一 8x*xNx* XSx* ATN (1)/W 

70 FORX 王 1TOWSTITEPXS:I 一 P x* X 

80 HPLOT XL 十 XYC 一 人 AxSIN(CI) 

90 HPLOT XL 十 X,YC 一 人 Ax SIN CN2 * JT) 

100 NEXT X 
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110 END 

120 WII=INTI(W/2 十 .5):W2=INTIOWH/ 2 十 .5) 

130 XL 王 XC 一 WII:XR 王 XC 十 W1 

140 YT =YC 一 W2:YB 一 YC 十 W2 

150 XL 王 XL 一 1;XR 一 XR 十 1:YT= 王 YIT 一 1:YB 一 YB 十 

1 

160 _ TF = 王 NOT TEF 

170 HPLOT XL,YT TO XR.YT TO XR,YB TO XL,YB TO XL,YT 

180 IFTEFTHEN 150 

190 RETURN 

用 不 同 频 率 的 正弦 曲线 相 笃 加 ,并 在 曲线 与 曲线 .曲线 与 
吉 线 之 间 涂 色 的 方法 ,可 以 组 成 一 些 很 有 特色 的 图 案 。 程 序 
3-2 使 |sinI| 的 振幅 为 40 ,平衡 中 心 为 YC=80; 并 使 |sinK | 的 
振幅 为 30 ,平衡 中 心 是 当前 |sinI| 曲 线 上 的 YY 坐标 值 。S2 一 5 
x*S1 使 |sinI| 与 |sinK| 之 间 有 一 个 五 倍 频 的 关系 。 涂 色 是 到 
HPLOT Xi,,Y, TO X;:,Y*, 这 个 语句 来 实现 的 。 
程序 3-2 

90 REM 程序 3-2 

100 HGR : HCOLOR 王 3 

120 YC 一 80 

130 S1 一 3.14159 / 140:S2 一 5x* Sl 

140 Al1 = 40:A2 = 30 

150 FORX 王 0TO279 

160 I 王 工 十 Sl 

170 YY 一 YC 一 ABS (INTICAL * SIN (ID 十 .5)) 

180 HPLOT X,Y 

190 K 一 KK 十 S2 

200 YY 王 Y 一 ABS (INT(CA2 * SIN (K) 十 .5)) 
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210 HPLOTXV/2,YTOX/2,Tl 

215 HPLOT 140 十 X/2,YTO140 十 X/2,YC 一 Y 
220 NEXT 

230 GET A$ : TEXT : END 





图 3-1 正弦 曲线 的 琶 加 与 变化 


物理 学 告诉 我 们 ,如 果 一 个 质点 同时 参与 两 个 相互 垂直 
方向 上 的 谐振 动 , 当 两 个 振动 频率 之 比 为 整数 时 , 合 振动 的 轨 
迹 是 一 个 规则 的 闭合 曲线 ,这 种 曲线 的 图 象 就 是 有 名 的 本 A. 
Lissajous 图 象 ( 李 萨 如 图 象 ) 程序 3-3 是 个 李 萨 如 图 象 的 演示 
程序 。 程 序 3-3 在 第 40 句 要 求 使 用 者 输入 方 向 的 角 频 率 与 
立方 向 的 角 频 率 的 两 个 整数 值 , 然 后 就 开始 绘制 李 萨 如 图 象 。 
如 果 你 先 接 通 打 印 机 ,再 开始 运行 程序 ,那么 程序 在 经 过 170 
句 的 判断 后 ,就 会 为 你 打印 出 执行 的 两 个 振动 方程 的 数学 表 
达 式 和 它们 所 产生 的 图 象 。 第 30 句 的 K 王 1. 18 是 为 某 些 打 
印 机 在 水 平方 向 与 垂直 方向 的 点 与 点 之 间 的 距离 不 同 而 加 入 
的 修正 值 。 当 两 个 方向 的 振动 的 角 频 率 的 比值 不 能 用 两 个 整 
数值 的 比 来 表示 时 , 光 点 将 走 遍 由 方 向 的 振幅 A 与 立方 向 
的 振幅 B 所 决定 的 所 有 区 域 。 
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图 3-2 是 执行 程序 3-3 后 ,输入 KX 一 5,KY 一 2 后 的 一 人 了 
运行 结果 。 请 你 注意 图 3-3 的 李 萨 如 图 象 在 竖 直 方向 上 的 每 
一 端 有 2 个 极 值 点 (2 个 峰 ) ,而 在 水 平方 向 上 的 每 一 端 有 5 
个 极 值 点 (5 个 峰 ) ,这 正 是 KY 与 KX 的 比值 。 


程序 3-3 


10 
20 
30 
35 
40 
50 
60 
70 
80 
90 
100 
110 
120 
130 
140 
150 
160 
170 
180 


A 一 90:B 一 50 

XC 一 140:YC 一 80 

KK 一 1.18:B 一 Kx* B 
TEXT : HOME : VTAB 21 
INPUT 疏 X，KY 一 多 开 1 ,人 2 


PRINT 

HGR : HCOLOR 王 3: HPLOT XC 一 A,YC 
PRINT 人 好 

PRINT /多 一人 4A 和 xx COS (5K13T 7) 
PRINT 7 


PRINT 一 必 Bj2x SIN (人 思 KK23;T)v 

FORI 王 0TO2 * 3.1416 STEP . 005 

X 一 Ax COS (KI * JI) 

YY 一 Bx*SINCK2 * I) 

HPLOT TO XC 一 X,YC 一 了 

NEXT I 

GET A 和 ， TEXT 

IF PEEK (55) 王 193 THEN PRINT : PRINT CHR$ (17) 
END 


执行 结果 如 图 3-2 


又 一 
一 


90 * COS (5T ) 
50 *x SIN(C2T) 
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图 3-2 李 萨 如 图 象 


二 、 抛 物 线 教学 演示 程序 


抛物 线 是 一 种 应 用 广泛 的 曲线 , 它 的 主要 形式 是 ， 

X 一 十 2Z7 

开 王 二 2PX 

下 面 是 个 简单 的 抛物 线 教 学 演示 程序 , 它 主要 目的 是 通 
过 图 形 对 照 , 使 学 习 者 借助 于 人 机 对 话 方式 ,形象 地 感知 开口 
朝 上 、 明 下 , 朝 左 、 朝 右 , 它 们 与 正 负 号 的 关系 ,P 值 与 开口 大 
小 的 关系 。 

程序 首先 在 第 130 句 处 ,请 使 用 者 指定 对 称 轴 ,再 要 求 输 
入 P 值 (包括 正 ` 负 号 ) ,然后 绘图 。 绘 图 结束 后 ,再 执行 RUN 
120(270 句 ) ,重复 上 述 过 程 。 由 于 RUN 120 跳 过 了 HGR 命 
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令 , 所 以 以 前 的 图 形 被 保留 ,以 便 对 照 ; 而 各 变量 之 值 仍 被 清 
除 。 在 询问 对 称 轴 是 X 轴 还 是 Y 轴 时 ,者 按 下 王 键 ,程序 就 退 
出 运行 ; 若 按 下 X 键 , 就 以 X 轴 为 对 称 轴 ; 若 按 下 其 它 键 , 计 
算 机 就 设 定 对 称 轴 为 Y 轴 。 这 种 方法 叫 缺 省 (Default) , 缺 省 值 
由 程序 设计 者 决定 。 
程序 3-4 

100 REM 抛物 线 教 学 演示 程序 

110 HGR : KRCOLOR 王 3 

120 XC 一 139:YC 一 80: POKE 34,20 

130 “HOME :PRINT“Symmetry axis : X axis / Y axis”，: GET 

KEY$ , REM 选择 对 称 轴 

140 PRINT : INPUT “P 王 ”;P:D 王 2x*P:IFD=0THEN140 

150 IFKEY 和 一 “X”THEN 220 

160 IF KEY 和 一 “E”THEN TEXT : END 

170 FORX 王 0TO139 

180 Y=Xx*X/D:IFABS (Y)> 之 80THEN 210 

190 HPLOT XC 一 X,YC 一 YTOXC 一 XP,YC 一 YP 

200 HPLOT XC 十 X,YC 一 YTOXC 十 XP,YC 一 YP 

210 XP = X;YP 王 Y:NEXTX:GET A$: RUN 120 

220 FORY 一 0TO80 

230 X=Yx*Y/D:IFABS (X) >>139THEN 260 

240 HPLOT XC 十 X'YC 一 YTOXC 十 XP,YC 一 YP 

250 HPLOT XC 十 X,YC 十 YTOXC 十 XP,YC 十 YP 

260 XP 王 X:YP 王 YNEXTY 

270 GET A 和 :RUN 120 

程序 3-4 中 的 变量 XP.YP 是 为 了 使 相 邻 的 点 连接 成 线 而 
设 定 的 。 当 选择 X 轴 为 对 称 轴 时 ,程序 执行 220 一 270 的 程序 
段 ; 当 选择 Y 轴 为 对 称 轴 时 ,程序 执行 170 一 210 的 程序 段 。 
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图 3-3 抛物 线 


这 是 二 个 基本 相同 的 程序 段 。 图 3-3 是 反复 执行 了 若干 次 后 
的 一 个 结果 。 与 对 称 方式 相同 ,程序 3-4 采用 了 对 称 画 法 ,这 
是 由 HPLOT 语句 实现 的 。 


三 、 用 双 曲 线 编织 的 正 交 网 


双 曲 线 是 圆锥 曲线 家 族 中 的 一 个 重要 分 支 。 中 学 物理 与 
化 学 中 讲述 的 波 义 耳 一 马 略 特定 律 : 首 =C( 常 数 ) ,就 是 一 条 
双 曲 线 。 以 压强 P 为 纵 坐标 ,体积 了 为 横 坐 标 ,将 坐标 轴 逆 时 
针 旋 转 45。 ,就 得 到 新 坐标 系 下 的 方程 刀 一 严 天 2C。 双 曲线 
千 一 于 一 Ci 与 XY 一 0 中 的 Ci: 与 C: 取 不 同 值 时 ,就 形成 两 组 
曲线 族 。 这 两 族 曲线 在 相交 处 的 交点 的 切线 总 是 相互 垂直 。 在 

0 


数学 上 称 为 正 交 网 。 

程序 3-5 同时 描绘 了 这 两 组 双 曲 线 族 的 一 部 分 。140 名 
首先 给 出 C: 与 C: 之 值 ,180 句 到 200 句 的 内 循环 绘 出 线 XY 
一 C: 与 X2: 一 Y: 一 Cl。130 句 的 外 循环 变量 4 控制 重复 绘制 的 
次 数 。 

请 你 注意 190 句 , 它 在 第 一 次 绘 完 8 个 对 称 点 (GOSUB 
220) 后 ,使 用 交换 变量 X 与 立 的 值 的 方法 ,又 绘 出 另 一 条 曲 
线 的 8 个 对 称 点 。 它 给 出 了 一 个 以 X=Y 为 对 称 轴 的 图 案 的 
对 称 画 法 。 
程序 3-5 

100 REM 双 曲 线 正 交 网 一 一 等 势 线 与 力 线 

110 XC 一 139:YC 一 95:MAX 一 80 

120 HGR2 : HCOLOR 王 3 

130 FORA 一 9TOMAXSTEP 10 

140 CI=Ax A:C2=AxyA/2:X=A:Y 一 0 

150 X= INTCA* SQR(Y*Y/CI 十 1) 十 .5) 

160 IJFX 一 =MAXTHEN GOSUB 220 

170 Y=Y 二 1:IFEY< = MAXTHEN 150 

180 FORP 王 和 A/SQR(2) TOMAX :V 一 C2/P 

190 X=INTCV 十 0.5):Y 王 P:GOSUB 220:T 王 X:X 一 Y:Y 

一 T: GOSUB 220 

200 NEXT P: NEXT A 

210 GET A$ : TEXT :， END 

220 HPLOT XC 十 X,YC 十 Y: HPLOT XC 十 Y,YC 十 和 

230 HPLOT XC 十 X,YC 一 Y: HPLOT XC 十 YYC 一 和 

240 HPLOT XC 一 X,Yc 十 Y:, HPLOT XC 一 Y,YC 十 X 

250 HPLOT XC 一 X,YC 一 Y: HPLOT XC 一 Y,YC 一 

260 RETURN 
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图 3-4 正 交 双 曲 网 


四 、 青 螺 凤 号 长 缚 绕 
一 一 螺 线 家 族 四 兄弟 


在 程序 3-6 中 ,我 们 介绍 用 自 定义 函数 绘制 曲线 的 方法 。 
它 使 用 了 菜单 选择 法 。 为 了 节省 篇 幅 , 程 序 中 省 略 了 菜单 部 
分 。 按 下 键 [1 ] ,绘制 阿 基 米 德 螺 线 ; 按 下 键 [2] ,绘制 双 曲 螺 
线 ; 按 下 键 | 3] ,绘制 连锁 螺 线 ; 按 下 键 [4 ,绘制 对 数 螺 线 ( 见 
图 3-5) 。 

仿照 140 名 的 格式 ,可 以 再 定义 其 它 数学 方程 ,扩充 为 一 
个 可 以 绘制 许多 数学 图 象 的 通用 程序 。 

在 画 完 一 条 曲线 后 , 按 下 | C | 键 ,就 继续 (Continue) 绘 制 将 
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被 选择 的 另 一 条 曲线 ;否则 就 回 到 西 文 状态 ,并 结束 。 这 个 程 
序 留 下 一 个 不 足 之 处 ,请 读者 补充 :由 于 画 完 一 条 曲线 后 , 屏 
幕 处 于 全 屏幕 高 分 辩 绘 图 状态 ,所 以 使 用 者 可 能 还 不 知道 程 
序 已 经 结束 。 请 用 第 一 章 讲述 的 软 开 关 来 控制 图 形 与 文本 状 
态 的 切换 ,并 加 上 有 关 提 示 。 这 些 缺 少 的 部 分 虽然 没有 很 大 的 
技术 性 ,但 却 是 软件 成 败 的 一 大 关键 。 一 个 好 的 程序 ,总 是 有 
相当 一 部 分 内 容 是 专门 为 此 而 写 的 。 
程序 3-6 

100 REM 螺 线 家 族 四 兄弟 

110 XC = 140:YC = 95:P = ATN (1):ST 王 PV/30 

120 TF = 1: TEXT : HOME : VTAB 21, PRINT “SELECT : 1 一 

4 
130 GET KEY$ :IF KEY$ 一“1”OR KEY$ 之 “4”THEN 130 


140 IFKEY 和 9 一“17”THENA 一 3:B 一 0: DEFEFNRCX) 一 和 
关 X 

150 IFKEY 和 9 一“2”THEN A 一 100:B = P: DEF FN RCX) 一 
A /和 X 

160 IFKEY$ 一 “3”THEN A 一 100:B 王 P: DEF FN R(CX) 一 
A / SQR (X) 


170 IFKEY 和 $ 一 “42THENA 一 4:B 一 0:K 一 0.12:DEFEFNR 
(X) 一 Ax EXP(K * X) 
180 IFA$ 一“C”THEN 200 
190 HGR2 : HCOLOR 一 3 
200 FORT 王 BTO32 * PSTEPST 
210 X 王 FNRICT) * COS (CT) 
220 Y 王 FENRICT) * SIN (CT) 
230 IF TF THEN HPLOT XC 十 X,YC 一 Y: GOTO 250 
240 HPLOT XC 十 X,YC 一 YTOXC 十 XP,YC 一 YP 
卫 直 可 





250 XP 一 X:YP 王 Y:TFE 一 0 
260 NEXTT:GETA$4:IFEAV 和 $ 一 “C”THEN 120 
270 TEXT : END 


ee 


注 :, A: 阿 基 米 德 螺 线 pe=am; B; 双 曲 螺 线 p 一 二 


C: 连锁 螺 线 p= 二 D: 对 数 螺 线 p= 一 ae-rw 
人 


图 3-5 四 种 螺 线 





五 、 宛 如 同根 生 
应 用 广泛 的 指数 曲线 





帮 数 函数 是 一 种 常用 的 函数 , 它 的 形式 是 yz 一 ,“ 称 
为 指数 函数 的 底 。 在 自然 科学 中 ,经 常 取 e 为 指数 函数 的 
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底 .e 是 一 个 无 理 数 , 它 源 于 一 个 数列 *= lm | 1+ 二 | ~ 
2.718281828459。 

当 z 的 增 量 4z 为 常数 时 ,我 们 可 以 用 递归 方法 来 快速 描 
绘 ! 一 4e “曲线 , 绕 开 复杂 的 函数 计算 。 

对 应 于 第 ;个 点 ,g= 一 4e “可 以 改写 为 % 一 4e ,对 应 于 
第 ;十 1 个 点 ,gli 一 4e-+ 一 4e 下 t+ 人 一 4e- 和 。e- 侍 一 ie- 二 。 
由 于 与 4z 都 是 常数 ,所 以 令 D=e 瑟 “就 得 到 递归 表达 式 
Ji+i 一 ED。p, 它 将 函数 运算 转变 为 一 次 乘法 运算 。 

程序 3-7 描绘 了 一 组 具有 相同 的 4 值 ， 而 类 值 不 同 的 曲 
线 != 一 (1 一 e”),， 图 3-6 就 是 程序 3-7 运行 的 结果 。 当 1=0 
时 ,一 (1 一 ”) 就 简化 为 方程 y 一 0, 它 对 应 于 图 3-6 最 下 方 
的 那 条 水 平 线 。 在 图 象 的 动态 描绘 中 , 你 可 以 形象 地 感觉 到 ， 
当 思 0 时 ,不 值 越 大 , "一 (1 一 e-”) 曲 线 的 轨迹 就 越 快 趋 近 于 
% 一 4, 不 值 表 明了 向 稳定 状态 接近 的 速率 。150 名 给 出 e- 
的 变量 值 ED，160 一 180 句 由 IF…THEN… 语 句 组 成 循环 ， 画 
出 一 条 指数 曲线 。170 句 的 判断 也 是 为 了 加 快 程 序 的 运行 速 
度 ,因为 当 4e“ 之 值 ( 变 量 y) 小 于 1 时 ,计算 机 已 通过 自 
动 取 整 ,将 它 作 零 处 理 , 所 以 可 以 用 190 句 的 HPLOT 语 
句 , 直 接 画 出 渐 近 线 , 跳 过 中 间 完 长 而 又 不 必要 的 循环 
过 程 。 外 循环 变量 K 从 零 开 始 , 以 ST 的 增 量 逐渐 变化 ,直至 
K 一 2. 4。 从 图 3-6 可 以 看 出 ,K 值 越 大 ,AK(CST) 对 轨迹 的 影 
响 就 越 小 人们 可 以 通过 图 3-6 ,直观 地 了 解 极 限 的 概念 与 
实际 应 用 。 

按照 同样 的 方法 ,我 们 也 可 以 写 出 一 般 指 数 函 数 曲线 ? 
一 ou 的 递归 表达 式 ji 一 co* .并 编 出 类 似 的 程序 。 
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程序 3-7 
100 
110 
120 
130 
140 
150 
160 
170 
180 
190 
200 

e。D6。 





图 3-6 用 递归 方法 绘制 的 一 组 指数 曲线 


REM 指数 函数 

A 一 191:ST 王 0.05 

HGR2 : HCOLOR= 3 

FORK 一 0TO2.4STEPST 

X =0:Y 王 191: HPLOT X,Y 

ED 王 EXP( 一 儿 xx ST) 

HPLOT TOX,191 一 A 十 Y 

Y 一 YED:IFEY<1ITHEN 190 
X 一 X 十 2:IFX<279THEN 160 
HPLOT TO 279,Y 

NEXT K: GET A$ : TEXT : END 


六 、 令 人 防 目 的 摆 线 


假使 在 自行 车 的 车 轮 边缘 处 点 上 一 点 白 漆 , 当 车 轮 沿 着 
一 条 直线 作 无 滑动 的 滚动 时 ,这 个 白 点 的 运动 轨迹 是 一 条 摆 
线 ( 图 3-7)。 摆 线 的 参数 方程 是 : 

X 一 有 CO 一 Sin0) 

了 一 民 (]1 一 cosO) 

当地 面 上 都 是 积 雪 ,轮胎 不 断 打滑 时 , 摆 线 方程 变 为 次 摆 
线 方程 

太一 下 。 尺 。0 一 Rsin0 

了 一 届 (]1 一 cosO) 
式 中 的 玫 <<1。 用 逐 点 扫描 法 绘制 摆 线 ,就 可 以 很 清楚 地 观察 
白 漆 点 的 运动 过 程 ,程序 3-8 就 是 一 个 绘制 普通 摆 线 的 程序 。 
将 130 句 修改 成 次 摆 线 的 参数 方程 ,我 们 就 可 以 看 到 轮胎 打 
滑 时 白 漆 点 的 运动 轨迹 。 
程序 3-8 

100 REM 摆 线 

110 R= 王 20 : PI 天 ATN(1):ST 王 PI/22.5 

120 HGR : HCOLOR 一 3 

130 X 王 Rx* (GT 一 SIN (CT)) 

140 IFX>> 270THEN GET A$ : END 

150 HPLOT X,70 一 人 Rx* (1 一 COS (T)) 

160 T=T 十 ST : GOTO 130 

假使 自行 车 车 轮 的 半径 是 已, 它 在 另 一 个 半径 为 已 的 圆 
周 上 , 沿 该 圆 的 外 侧 滚 动 。 我 们 称 半 径 为 已 的 圆 为 定 圆 ,车轮 
为 动 圆 。 此 时 ,那个 白 漆 点 ( 动 点 P) 的 运动 轨迹 称 为 外 摆 线 ， 
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图 3-7” 摆 线 


它 的 参数 方程 是 : 
区 一 (BR 十 Pa)ecosb 十 Reeos| 所 二 二 0| 
2 
了 一 (CR 十 RD)sin0 十 Rsin 全 二 。 | 
2 





为 了 保证 动 点 尸 随 时 间 变 化 的 动态 效果 ,还 是 应 该 采用 
逐 点 扫描 法 。 描 绘 外 摆 线 的 程序 3-9 与 程序 3-8 的 东 本 结构 
是 相同 的 ,但 是 它 使 用 了 一 个 更 灵活 地 控制 显示 的 方法 :首先 
使 循环 变量 T 的 终 值 取 一 个 很 大 的 值 , 需 要 很 长 时 间 才 可 能 
达到 (150 句 )。 其 次 在 循环 体 中 插入 一 句 读 键 语句 (170 句 )， 
只 要 按 下 任何 一 个 键 , 就 会 中 止 显 示 , 去 执行 THEN 后 面 的 命 


令 


程序 3-9 
100 REM 外 摆 线 演示 程序 
110 INPUT 恨 1 = 5R1: INPUTR2 一 /5R2: IFR1 十 2x R2 > 
80 THEN 110 
120 HGR : HCOLOR= 3 
130 XC= 140:YC 一 80:P 王 ATN (1):A 一 R1 十 R2:S 一 A/ 
R2 
8 


140 HPLOT XC 十 A 十 R2,YC 

150 FORT 王 0TO200* 了 PSTEPP/10 

160 HPLOT TO XC 十 A x* COS (T) 十 R2 * COS (S x* T),YC 
一 AxSIN(CT) 一 R2 x*SINCS * T) 

170 IF PEEK (49152) 盖 127 THEN END 

180 NEXTT 





Ri=29 ，R2 = 12 Ri = 24 ，R2 = 169 


图 3-8 外 摆 线 轨迹 与 动 圆 , 定 圆 半 径 的 关系 


在 外 摆 线 中 , 动 点 忆 与 定 圆 的 圆心 的 最 小 距离 是 尺 , 最 
大 距离 是 已 十 28。 了 解 这 一 点 ,有 助 于 我 们 掌握 各 种 外 摆 线 
轨迹 的 共同 特征 。 

在 这 一 节 中 ,所 用 的 程序 结构 都 很 简单 ,读者 首先 应 该 把 
注意 力 注 重 于 “参数 的 使 用 ”, 它 是 本 节 叙 述 的 重点 。 图 3-8 是 
程序 3-9 执行 的 两 个 结果 ,外 摆 线 的 千变万化 都 源 于 已 与 已 
的 比值 。 当 瓦 一 20,R 一 12 时 ,外 一 配 。 从 图 3-8 左 部 可 以 看 
出 ,图 案 正 好 是 五 叶 状 , 有 三 重复 瓣 (三 层 交 点 )。 当 已 一 24,Ra 


一 10 时 , 果 一 过 ,图 案 正好 是 十 二 叶 状 ,有 五 重复 瓣 ( 图 3-8 
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右 部 )。 这 告诉 我 们 ,将 玉 ( 定 圆 半径 ) 与 尼 ( 动 圆 半 径 ) 相 约 
后 ,分 子 之 值 为 叶 数 ,分 母 之 值 为 层 数 。 如 果 想 得 到 某 个 图 案 ， 
可 以 先 给 出 分 子 与 分 母 之 值 , 然 后 再 共同 乘 上 一 个 数 ,使 实际 
值 与 屏幕 窗口 的 大 小 相配 。 

将 程序 3-9 中 第 130 语句 中 的 A=R1I 十 R2 改 为 A=Rl 一 
R2 ,并 将 110 句 中 的 严 RI+T2xR2 二 80 THEN 110 改 为 IF RI>80 
THEN 110, 就 可 以 得 到 内 摆 线 的 轨迹 ,其 原理 与 外 摆 线 相似 。 
在 内 摆 线 中 , 动 点 与 定 圆 的 最 小 距离 为 R1 一 2* R2, 最 大 距离 
为 R1, 为 了 防止 将 图 线 绘 到 屏幕 外 去 ,引起 出 错 , 所 以 更 改 
110 语句 中 的 判断 条 件 。 

将 外 摆 线 的 参数 方程 修改 一 下 ,就 得 到 外 次 摆 线 的 参数 
方程 : 


双 一 (Ri 十 Ro)coso 十 开 。R。coSs 


及 十 R 
尼 z 








及 十 已 
> 


7 一 (Ri 十 Raz)sin0 十 开 。R2。sin 。0 


只 要 在 程序 3-9 中 ,插入 下 面 两 行 BASIC 语句 ， 
105 INPUT 性 " 开 
135 R2 一 Kx* R2 
并 将 110 句 的 判断 部 分 改 为 IF R1 十 R2 十 Kx*R2 之 80 THEN 
110 就 变 为 绘制 外 次 摆 线 轨迹 的 程序 。 
程序 3-10 是 在 圆 内 摆 线 ( 圆 内 旋 轮 线 ) 的 基础 上 ,通过 K 
值 的 等 比 变化 ,通过 坐标 的 等 比 变换 ,通过 四 点 对 称 的 方式 作 
出 对 称 直线 ,用 艺术 的 想象 ,借助 数学 公式 的 组 合 ,绘制 出 的 
图 案 。 程序 中 ,R 是 定 圆 的 半径 ,R1 是 动 圆 1 的 半径 ,R2 是 动 
2 的 半径 ,S1 是 定 圆 与 动 圆 1 的 半径 比 ,S2 是 定 圆 与 动 加 
2 的 半径 比 。 运 行程 序 3-10, 能 绘 出 许多 新 奇 的 图 案 。 例如 S1 
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一 6,S2 一 18( 图 3-9);S1 一 8,S2 一 32;S1 一 6,S2 一 8;S1 一 4,S2 
一 12。 应 该 说 ,这 些 图 案 , 只 有 用 计算 机 才能 很 快 地 绘制 出 。 
程序 3-10 


100 
110 
120 
130 
140 
150 


160 


170 


180 
190 
200 
210 
220 
230 


240 
250 
260 
270 
280 
290 


REM 摆 线 的 变异 一 一 雪花 线 

XC = 140:YC = 95:R = 30 

INPUT 1] = %S1:R1 = R /Sl1 

INPUT 心 2 一 必 S2:R2 一 R/ S2 

P = ATN (1):ST 一 P /45 

Al 一 R 一 Rl1:A2 一 R 一 R2:Ml = Al/R1:M2 一 A2/ 
R2 

HGR2 , HCOLOR= 3 

FORI 二 0TO 2 x* PSTEP ST 

XI 一 Al * COS (D 十 RI * COS (Ml * IT 

Y1 一 Al* SIN(D 一 RI*SIN MI * 了) 

X2 王 A2 * COS (ID) 十 R2 x* COS (M2 x* 1 

Y2 一 A2 x* SIN (D) 一 RI x SIN (M2 x IT 

K = 0.5 

XP 一 Kx Xl:YP 一 Kx YI:XN 一 Kx X2;YN 一 Kx 
Y2 

HPLOT XC - XP,YCc - YP To Xc - xXN,YC 一 YN 
HPLOT XC 十 XP,YC 一 YP TO XC 十 XN,YC 一 YN 
HPLOT XC 十 XP,YC 十 YP TO XC 十 XN,YC 十 YN 
HPLOT XC 一 XP,YC 十 YP To Xc 一 XN,YC 十 YN 
K 一 1.5 x K:IFK 一 3THEN 230 

NEXT , GET A$ , TEXT : END 


习 题 


1. 玫瑰 线 的 极 坐标 方程 是 p= Rsinxy 或 p= Recosxy。 在 高 分 辩 第 一 页 
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画 出 po 一 80sin4y 的 图 象 ,第 二 页 画 出 p 王 80cos4y 的 图 象 , 再 用 延 时 的 方 
法 与 两 页 轮换 显示 的 技巧 交替 显示 这 两 个 画面 。 
2. 画 出 y 一 zsinz 的 图 象 。 





图 3-9 摆 线 的 变异 (雪花 线 ) 
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tsgwegwegwwgowgwegwegwefwegwegwegoegoegoegoegwegwegoegang 

造型 是 革 果 机 与 中 华 学 习 机 的 一 
个 颇 有 特色 的 绘图 方式 , 它 可 以 放大 ， 
旋转 ,方便 地 指定 显示 位 置 。 用 造型 方 
式 绘 图 的 速度 比 用 HPLOT  X,Y 绘 
图 的 速度 快 得 多 ,这 主要 是 因为 在 绘 
制 一 个 造型 的 过 程 中 ,计算 机 不 必 去 
反复 寻找 行 号 ,解释 BASIC 语句 , 进 
行 数 制 转换 。 

许多 应 用 软件 、 游 戏 软 件 都 使 用 
这 种 绘图 方式 。 造 型 绘图 与 下 一 章 的 
字 节 (BYTE) 对 应 作 图 方式 ,都 需要 使 
用 二 进 制 与 十 六 进 制 数 ,所 以 ,我 们 先 
简单 介绍 一 下 数 制 与 数 制 的 转换 。 


CTITITIOITTTIY 














TY 





一 、 数 制 与 数 制 的 转换 


现代 人 首先 熟悉 的 是 十 进 制 数 。 这 举世 皆 然 的 现象 ,可 能 
是 因为 人 正巧 有 十 个 手指 ,使 得 十 进 制 更 容易 “屈指 一 算 ”, 也 
“看 3 


便于 启蒙 教育 。 在 历史 上 ,人 类 也 曾 用 过 其 它 数 制 。 例 如 我 国 
有 个 成 语 : 铬 铁 必 较 , 那 多 铁 就 是 古代 微小 的 重量 单位 ,六 铁 
等 于 一 锚 , 四 锚 等 于 一 两 ,分 别 使 用 了 六 进 制 与 四 进 制 。 

十 进 制 数 有 10 个 数字 符号 :0,1,2,…,9, 逢 10 进 位。 将 . 
十 进 制 数 的 个 位 数 用 记 表示 ,十 位 数 的 值 用 户 表示 , 百 位 数 
的 值 用 旋 表示 …… ,那么 任何 一 个 位 十 进 制 整数 都 可 以 表 
示 为 PXI10" 十 Do X10": 十 … 十 方 X10 十 Do 例如 ， 
2053 一 2X103 十 5X10! 十 3X10"。 

二 进 制 数 共 有 2 个 数字 符号 :0,1。 因 2 进位。 将 二 进 制 
数 的 某 一 位 用 球 表 示 , 那 么 任何 一 个 m 位 二 进 制 数 都 可 以 表 
示 为 Bl: X2"-! 十 Bo。 X2"-2: 十 … 十 Bi X2 十 Bo, 这 个 公式 可 
以 用 来 将 二 进 制 数 转 换 为 十 进 制 数 。 例 如 ,二 进 制 数 
10110010 王 1X27 十 1X25 十 1X24 十 1X2 一 178。 

六 进 制 数 共 有 16 个 数字 符号 :0,1,2,…,9,4,B,C,D， 

已 ,PR。 着 16 进位。 其 中 4 一 书 ,依次 对 应 于 十 进 制 数 的 10 一 15。 
将 十 六 进 制 数 的 某 一 位 用 玉 表示 ,那么 任何 一 个 mm 位 十 六 进 
制 数 都 可 以 表示 为 : 鼠 ，-;X16"-! 十 万 X16"-2 十 … 十 书 X 
16: 十 互 o, 这 个 公式 可 以 用 来 将 十 六 进 制 数 转换 成 十 进 制 数 。 
例如 ,十 六 进 制 数 Fe58 王 15X163 十 12X162 十 5X161 十 8X 
16" 一 64600。 

把 二 进 制 数 转 换 为 十 六 进 制 数 是 很 容易 的 ,因为 2 一 
16, 所 以 4 位 二 进 制 数 等 价 于 一 位 十 六 进 制 数 。 表 4-1 是 一 张 
数 制 转换 表 ,你 必须 记 住 ,才能 熟练 地 编制 造型 表 。 

下 面 举 二 个 例子 ， 

1. 一 个 8 位 二 进 制 数 11011001 可 以 分 成 1101 与 1001 
两 部 分 , 它 等 于 十 六 进 制 数 D9。 
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2. 一 个 6 位 二 进 制 数 101111 可 以 分 成 10 与 1111 两 部 
分 , 它 等 于 十 六 进 制 数 27。 


表 4-1 数 制 转换 表 


下 


1000 


下 | 












1010 4 10 





定义 造型 


要 绘制 造型 ,必须 先 用 绘图 向 量 将 图 形 逐 点 给 予定 义 。 这 
里 所 说 的 向 量 ,与 物理 学 中 的 向 量 概念 是 不 同 的 , 它 只 能 指向 
上 \、 下 \ 左 \ 右 4 个 方向 。 实 际 上 , 它 是 一 个 步 进 式 绘图 方向 参 
数 。 

可 以 用 2 位 二 进 制 代 码 表 示 绘 图 移动 的 方向 :向 上 移动 
用 00 表示 ,向 右 移 动用 01 表示 ,向 下 移动 用 10 表示 ,向 左 移 
动用 11 表示 。 再 用 一 位 二 进 制 代码 表示 是 否 绘图 ,0 表示 不 
留 下 痕迹 (在 不 放大 时 ,是 一 个 点 ),1 表示 留 下 痕迹 .这样 ,每 

。65 。 


个 绘图 向 量 共 由 3 位 二 进 制 代码 组 成 。 表 4-2 是 绘图 向 量 代 


码 表 。 


苹果 机 与 中 华 学 习 机 都 是 8 位 微机 。 
一 个 字 节 (BYTF) ,每 个 字 节 由 8 位 (BIT) 二 进 制 数组 成 ， 


表 4-? ”造型 向 量 代码 表 
文字 说 明 。。 | 图 示 记 号 “| 二 进 制 代码 


不 绘 点 ,向 上 移动 















不 绘 点 ,向 右 移动 


不 绘 点 ,向 下 移动 


不 绘 点 ,向 左 移动 


绘 点 ,并 向 上 移动 


绘 点 ,并 向 右 移动 


绘 点 ,并 向 下 移动 


绘 点 ,并 向 左 移动 


将 字 节 的 每 一 位 用 Bu,Bi,…,B， 表示 ,B, 是 最 高 位 。 
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一 个 内 存单 元 称 为 
一 般 


由 于 每 个 向 量 占 3 位 二 进 制 信息 位 ,所 以 在 B:、Bi、B 这 
3 个 比特 CBIT) 内 存放 第 一 个 向 量 , 叫 第 一 段 。 在 Bs、B4、Bs 这 
三 个 比特 CBIT) 内 存放 第 二 个 向 量 , 叫 第 二 段 。 为 了 充分 利用 
内 存 空 间 ,就 虚拟 一 个 Bs ,并 设 定 Bs 王 0, 这 样 就 可 以 将 B, 、Bs 
作为 第 三 段 。 在 第 三 段 中 ,只 能 存放 001.010、011 向 量 。 为 了 
防止 错误 解释 ,不 准 在 第 三 段 存 放 000 向 量 , 也 就 是 说 , 当 B， 
与 Be 二 个 BIT 都 为 0 时 ,BASIC 解释 程序 认为 只 有 第 一 段 与 
第 二 段 存放 着 两 个 向 量 。 同 时 ,在 第 三 段 没 有 使 用 的 情况 下 ， 
第 一 段 与 和 第 二 段 内 不 准 连 续 两 次 使 用 000 向 量 ,因为 BA- 
SIC 解释 程序 以 一 个 内 含 值 为 0 的 字 节 ,作为 一 个 向 量 造型 
结束 的 记号 。 可 以 使 用 下 面 的 字 节 表 格 ,作为 助 记 图 : 


-有 第 二 段 只 卫 第 一 段 _ 


__ 。，。 。 。 相 邻 的 两 个 M 决定 移动 方向 ,P 决 
6 人 
说 的 第 一 个 向 量 、 第 二 个 向 量 都 仅 是 相 

] II 
人 开始 学 编造 型 表 时 , 切 莫 仿 大 心 
切 ,必须 先 注意 搞 清 向 量 安放 的 次 序 。 
图 41 造型 髓 量 ”让 我 们 先 通过 编制 图 4-1 的 造型 ,了 解 
造型 的 编制 方法 和 向 量 的 安放 次 序 。 每 个 向 量 旁 都 标明 了 次 
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序 编号 。 我们 用 表 4-3 的 方式 写 出 结果 ,在 相应 的 字 节 与 段 
中 ,首先 填 入 向 量 编号 次 序 , 然 后 填 入 对 应 的 二 进 制 代码 ,最 
后 进行 数 制 转换 。 

表 4-3 ”造型 向 量 翻 译 表 ( 一 ) 











图 4-2 是 一 个 直角 三 角形 的 造型 , 它 的 起 始点 在 左上 角 。 
由 于 这 个 造型 重复 次 数 很 多 , 故 采用 另 一 种 表格 形式 。 
表 4-4 ”造型 向 量 翻 译 表 “〈 二 ) 


15 


00010101 


00111111 加 5 二 
00100111 27 
24 








局 | 
图 4-2 三 角形 造型 
三 、 建 立 造 型 表 


编 完 造型 后 ,还 需要 再 编制 一 个 造型 表 。 每 个 造型 表 最 多 
可 以 容纳 255 个 造型 。 假 定 造 型 表 的 起 始 地 址 (Start address) 
是 S, 那 么 造型 表 在 计算 机 内 存放 的 结构 如 表 4-5 所 示 。 

造型 存放 的 绝对 地 址 = 造型 表 的 起 始 地 址 十 造型 索引 值 
D, 由 于 造型 表 建 立 后 ,可 以 在 装 入 时 重新 指定 起 始 地 址 ,所 
以 在 建立 造型 表 时 ,最 好 使 造型 表 的 起 始 地 址 的 低位 (十 六 进 
制 ) 之 值 为 0, 例 如 起 始 于 $1000、$6000。 从 理论 上 说 ,各 个 


造型 不 一 定 要 依次 存放 ,也 不 一 定 要 紧 接 于 索引 表 之 后 。 下 面 
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表 4-5 ”造型 表 存放 示意 图 


索引 值 
被 定义 的 造型 个 数 (最 大 值 为 # $FF) 。 


| 一 
一 般 不 使 用 ,其 值 为 0。 | 
第 二 个 利 型 的 起 始 地 址 的 索引 值 ( 低 位 ) 区 四 













第 二 个 利 型 的 起 始 地 址 的 索引 值 ( 高 位 ) 
第 三 个 造型 的 起 始 地 址 的 索引 值 (低位 ) 


第 三 个 造型 的 起 始 地 址 的 索引 值 高 位 ) 


第 mn 个 造型 的 起 始 地 址 的 索引 值 (低位 ) 











第 n 个 造型 的 起 始 地 址 的 索引 值 ( 高 位 ) 


第 一 个 造型 的 起 始 字 节 


第 一 个 造型 的 结束 记号 (00) 
第 二 个 造型 的 起 始 字 节 


第 二 个 造型 的 结束 记号 (00) 


第 n 个 造型 的 起 始 字 节 


第 n 个 造型 的 结束 记号 (00) 





举 一 个 例子 ,在 这 个 例子 中 共有 三 个 造型 ,第 一 个 造型 就 是 图 
4-1 的 内 容 ,第 二 个 造型 就 是 图 4-2 的 内 容 , 第 三 个 造型 是 一 
只 梅花 鹿 ( 见 图 4-3)。 我 们 先 使 用 从 监控 状态 直接 输入 十 六 
进 制 数 的 方法 。 在 BASIC 命令 状态 下 ,键入 : 

CALL 一 151 uk/ 

这 时 提示 符 变 为 “* ”号 。 假 定 造型 表 的 起 始 地 址 是 
$7000, 则 第 三 个 造型 的 索引 起 址 是 $7000 十 2n 王 $7006 与 
$7000 十 2n 十 1= $7007, 要 把 第 一 个 造型 的 内 容 紧 跟 在 索引 
表 后 存放 的 公式 是 ， 

存放 起 始 地 址 = 造型 表 起 始 地 址 十 2CN 十 1) 
其 中 N 是 最 后 一 个 造型 的 序号 。 

输入 第 一 个 造型 的 内 容 : 

xx7008:，， 2A E0I 17 06 00k 

第 二 个 造型 的 起 始 地 址 是 第 一 个 造型 的 起 始 地 址 加 上 第 
一 个 造型 的 长 度 :$7008 十 $5=$700D。 再 输入 第 二 个 造 
型 

*700D，， 15 15 15 15 15 15 15 15 15 3F 

3F 3F 3F 27 24 24 24 24 00 必 

如 果 仍 然 按照 依次 存放 的 格式 ,那么 第 三 个 造型 的 起 始 
地 址 是 第 二 个 造形 的 起 始 地 址 加 上 第 二 个 造型 的 长 度 ， 
$700D 十 $13=$7020。 这 种 存放 方式 尤其 适用 于 以 BASIC 
数据 输入 造型 表 。 为 了 更 好 地 了 解 索 引 值 的 作用 ,这 里 假定 第 
三 个 造型 要 另外 存放 于 $ 7300 开始 处 , 表 4-6 是 梅花 鹿 造 型 
的 代码 表 。 

在 输入 第 三 个 造型 后 ,再 存 入 造型 索引 部 分 。 第 一 个 造型 
的 索引 值 D 王 第 一 个 造型 的 起 始 地 址 一 造型 表 的 起 始 地 址 
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一 $7008 一 $7000=$8。 按 同样 的 算法 ,第 二 个 造型 的 索引 


表 4-6 梅花鹿 造 型 

x 7300. 73BA 

7300- ooc 2 55 2C 324 35 4 6B 
7308_ IC IF 2 AD 2 4 63 PDF 
7310 ~ FB 3F 2 sc 3F 2 2p 2p 
7318 ?pp 3c spF 3 3F 0c 25p 2p 
7320- 2D 3 3 4 AB 15 2p ooc 
7328 2 0c 5 60 mc ooc 36 0E 
7330 ~ 24 2cC 36 3 36 36 37 1E 
7338_ IE IE IE mo 8 0 8 08 
7340- 08 oo 40 BB 24 FE5 4 1c 
7348_ 8D AD 2 mp mo 4 人 0 0 
7350 ~- ct pg lc ic lc IIc sc Br 
7358_ IC El lc 6 E Bo F2 37 
7360- 36 F6 4 2 24 17 8B6 16 
7368- 17 IF ip li ic ic oo op 
7370 ~- 中 ooc ip ip IF 27 2p 2p 
7378- oD 4 3 3F 3F 3 234 0oc 
7380- 24 0cC 24 2 2cC 25 4 63 
7388 4 3 4 3 3F 17 人 性 FF 
7390- 3F 38 3sF 4c EdIc lc 17 
7398 36 0 3E IE BE F6 36 6E 
73A0- 2 ooc 3 353 2 324 2D 15 
73A8_ IE 3E AE 8 BF 3F 3F 38 
73B0 ~- 27  B8 B6 4 4 IE IE 36 
73B8- 36 2 00 
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值 D:=$700D 一 $7000= $D, 第 三 个 造型 的 索引 值 D: 王 
$7300 一 $7000= $300。 按 照 表 4-5 所 述 的 次 序 输 入 : 

xx7000:3 0 80 0 3k 巡 

要 使 BASIC 程序 知道 造型 表 的 起 始 地 址 ,还 必须 把 该 地 
址 的 低 2 位 送 零 页 的 $E8 单元 ,高 2 位 送 $E9 单元 ， 

xxE8 : 00 70x/ 

也 可 以 在 BASIC 命令 状态 下 或 BASIC 程序 中 执行 这 项 
工作 ,这 时 地 址 都 必须 使 用 十 进 制 数 。 由 于 $$E8 一 232, $E9 
一 233, 所 以 用 BASIC 的 POKE 语句 ,直接 向 指定 地 址 存放 造 
型 表 的 起 始 地 址 $7000 的 命令 为 : 

POKE 232， 0 

POKE 233， 112 

造型 表 的 起 始 地 址 的 十 六 进 制 数 的 高 2 位 与 低 2 位 也 被 
分 别 翻 译 成 十 进 制 数 。 

在 输入 程序 4-1 并 运行 后 ,就 绘 出 7 只 梅花 鹿 ( 见 图 4- 
3) 。 

绘制 造型 的 命令 有 两 个 : 

1 DRAW N AT X'Y 

2 XDRAWN AT XXXY 

N 是 造型 序号 ,例如 前 面 的 造型 表 中 ,梅花鹿 是 第 3 个 造 
型 ,N 王 3。AT 是 个 BASIC 命令 , 它 指明 绘制 造型 的 起 点 坐标 
(X,Y)。X 与 Y 都 可 以 是 数学 表达 式 , 它 们 的 取 值 范围 是 :0 科 
X 委 279,0 委 Y 委 191。 计 算 机 会 自动 对 X 与 Y 取 整数 值 。 
DRAW 会 指示 BASIC 解 释 程 序 用 当前 设 定 的 颜色 绘 出 造 
型 ,而 XDRAW 则 用 当前 颜色 的 互补 色 绘 出 造型 。 在 一 个 
BASIC 程序 中 ,第 一 次 使 用 DRAVYV 与 XDRAVV 命令 前 ,还 必 

二 


须 设 定 放大 倍数 与 旋转 角度 ,它们 的 BASIC 语句 格式 分 别 是 

SCALE 一 M 

ROT = N 

绘 完 一 个 造型 后 ,也 可 以 修改 M 与 N 的 值 。M 与 N 的 取 
值 范围 是 0 一 255 之 间 的 整数 。 下 一 节 将 逐个 讨论 这 些 命令 与 
参数 的 用 法 。 
程序 4-1 

100 REM 七 只 梅花 鹿 

110 N=3 

140 HGR , HCOLOR=- 3 

150 SCALE=- 1:, ROT=- 0 

160 FOR XC 一 2 TO 242 STEP 40 

170 DRAW N AT XC,60 

NEXT XC: END 


秒 朱 委 名 和 执 的 名 


图 4-3 七 只 梅花 鹿 
四 、 峰 回路 转 一 一 巧妙 的 造型 


造型 主要 有 两 类 ,一 类 是 细致 的 图 形 或 文字 ,如 图 4-3; 
另 一 类 是 简单 的 几何 图 形 ,例如 图 4-1 与 图 4-2。 后 一 类 图 形 
主要 通过 旋转 、 放 大 ,改变 绘 图 起 始点 的 坐标 ,组 合成 各 种 新 
奇 的 图 案 。 但 由 于 构思 不 同 ,同一 个 几何 造型 ,可 以 组 合 出 风 
格 过 异 的 图 案 。 
。7T4。 


为 了 更 好 地 了 解 造型 绘图 的 独特 之 处 ,我 们 分 5 个 方面 
逐一 探讨 。 为 了 便于 对 照 , 本 节 的 所 有 程序 都 使 用 图 4-4 的 1 
号 造型 或 2 号 造型 。 

1 号 造型 的 起 始 向 量 ( 起 始 绘图 位 置 ) 的 位 置 是 造型 的 几 
何 中 心 , 而 2 号 造型 的 起 始 向 量 的 位 置 在 左下 角 。 这 2 个 造型 
的 造型 表 是 :2 0 6 0 C 0 2?A 36 3F 24 5 0 
24 2D 236 30。 


人 ee 
本 风 用 


上 二 三 


(4)1 号 造型 〈B)2 号 造型 
图 4-4 两 个 起 始 位 置 不 同 的 正方 形 造 型 
(一 ) 造型 起 始 向 量 对 旋转 效果 的 影响 
一 个 造型 的 起 点 可 以 选择 不 同位 置 , 图 4-4 的 1 号 造型 
的 起 始 向 量 在 图 形 的 几何 中 心 ,指向 上 方 ;2 号 造型 的 起 始 向 
量 在 左下 角 ,也 指向 上 方 。 起 始 向 量 的 位 置 是 决定 旋转 效果 的 


一 个 重要 方面 , 它 是 旋转 中 心 ,与 屏幕 坐标 (X,Y) 无 关 。 图 4-5 
的 两 幅 画面 都 是 程序 4-2 运行 的 结果 。 当 程序 4-2 的 150 句 
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程序 4-2 

100 REM 起 始 向 量 对 旋转 效果 的 影响 

110 GOSUB 3000 

120 _ SCALE 一 16 

130 FORI 王 0TO240STEP 14 

140  ROT 一 工 

150 DRAW 1 AT 20 十 I,90 

160 NEXT I， END 

3000 FOR II 一 0To 1000: READ N:IFN >>255ORN<0 

THEN 3020 

3010 POKE 4096 十 IN: NEXTI 

3020 POKE 232,0: POKE 233,16 

3030 ”HGR : HCOLOR 王 3 

3040 RETURN 

4000 DATA 2,0,6,0,12,0,40,54,683,36,5,0,36,45,54,63,0， 

一 1 

是 DRAW1 AT20 十 I,90 时 ,使 用 1 号 造型 , 绘 出 图 4-5 上 
部 ; 当 150 句 改 为 DRAW 2 AT 20 十 I,90 时 ,选择 2 号 造型 ， 
绘 出 图 4-5 下 部 。 这 两 幅 图 之 所 以 有 很 大 区 别 ,唯一 的 原因 就 
是 在 编制 造型 时 ,选用 了 不 同 的 起 始点 .DRAW N AT X,Y 与 
XDRAW N AT X,Y 两 个 语句 中 的 屏幕 坐标 (X,Y) 仅 是 指定 
开始 绘制 造型 的 起 点 位 置 , 它 不 能 决定 一 个 造型 本 身 的 旋转 
中 心 。 

程序 4-2 以 BASIC 数据 形式 输入 造型 表 , 所 以 首先 要 把 
造型 表 翻 译 成 十 进 制 数 。 在 程序 4-2 的 4000 句 所 提供 的 造型 
表 数 据 的 后 面 ,有 一 个 数据 “一 1”, 它 是 数据 结束 标志 。 由 于 造 
型 表 内 之 值 都 在 0 一 255 之 间 , 所 以 可 以 把 任何 一 个 大 于 
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图 4-5 正方 形 造型 (一 ) 


255， 或 小 于 0 的 数 放 在 DATA 语句 之 末 , 当 计算 机 读 到 这 个 
值 时 ,就 由 读 取 与 存放 数据 的 循环 (3000 一 3010 句 ) 跳 到 3020 
句 ,去 设 定 造型 表 的 起 始 地 址 。 标 记 在 程序 设计 与 数据 处 理 
中 ,起 着 很 重要 的 作用 。 在 130~160 句 的 循环 中 ,循环 变量 同 
时 控制 着 旋转 参数 (140 句 ) 与 屏幕 坐标 的 变化 。 


(二 ) 起 点 坐标 (X,Y) 对 造型 的 影响 


由 于 计算 机 在 绘制 造型 的 过 程 中 ,使 用 了 回 绕 方式 ,所 以 

在 绘制 过 程 中 , 当 一 个 向 左 的 向 量 使 水 平 坐标 值 小 于 0 时 ,这 

部 分 图 形 就 会 在 屏幕 的 右 端 出 现 ; 当 一 个 向 右 的 向 量 使 水 平 

坐标 值 大 于 279 时 ,这 部 分 图 形 就 被 移 到 屏幕 的 左 端 . 同 样 的 

回 绕 方式 也 被 用 于 向 上 与 向 下 的 向 量 绘图 中 。 如 果 一 个 造型 

的 几何 中 心 就 是 绘图 起 始 向 量 所 在 的 位 置 ,就 可 以 利用 这 个 
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特点 , 绘 出 对 称 图 案 ,此 时 的 起 点 坐标 可 以 选用 点 (0,0) 程序 
4-3 就 是 一 个 例子 , 它 使 用 了 图 4-4 的 1 号 造型 ,并 使 用 了 程 
序 4-2 的 3000 一 4000 句 。 可 以 看 到 ,同样 是 使 用 1 号 造型 ,图 
4-5 上 部 与 图 4-6 的 效果 是 完全 不 同 的 。 在 程序 4-3 中 ,旋转 
参数 是 个 常数 (120 句 ) ,而 放大 倍数 则 随 着 循环 变量 而 变化 
(140 句 ) 。 





图 4-6 正方 形 造型 〈 二 ) 


100 REM 起 点 坐标 对 造型 的 影响 
110 GOSUB 3000: POKE 一 16302,0 
120 ROT=- 0 

130 FORI 一 0TO170STEP 3 

140 SCALE 一 I 

150 DRAW 1 AT 0,0 

160 NEXT I : END 


三) 放大 倍数 对 造型 的 影响 


放大 倍数 (SCALE) 的 最 大 值 是 255, 当 SCALE 王 0 时 , 计 
算 机 将 把 造型 放大 256 倍 。 由 于 在 绘制 造型 时 ,计算 机 只 对 向 
量 作 线性 放大 ,所 以 一 个 水 平方 向 的 向 量 ,只 能 沿 水 平方 向 将 
一 个 点 放大 为 一 条 横 线 ;一 个 坚 直 方向 的 向 量 , 只 能 沿 坚 直 方 
向 将 一 个 点 放大 为 一 条 纵 线 。 当 我 们 在 放大 状态 下 绘制 一 些 
精美 的 造型 时 ,往往 会 感到 大 失 所 望 。 究 其 原因 ,就 是 由 于 点 
被 放大 为 线 而 造成 失真 的 缘故 。 这 个 问题 ,我们 在 下 一 节 再 继 
续 讨 论 . 这 里 , 先 结合 变化 起 点 坐标 ,运用 4 点 对 称 作 图 ,给 出 
一 个 变化 放大 倍数 ,利用 线性 放大 的 特点 创作 新 图 案 的 简单 
例子 。 它 也 使 用 图 4-4 的 1 号 造型 和 程序 4-2 的 3000 一 4000 
句 的 程序 段 。 对 照 图 4-7 与 程序 4-4 的 150 与 155 句 的 4 个 
DRAW 语句 ,可 以 看 出 ,通过 循环 变量 对 放大 倍数 与 起 点 坐 
标的 控制 ,DRAW 语句 绘 出 的 正方 形 由 4 个 角 开 始 , 逐 渐变 
大 ,并 向 中 心 靠 拢 。 程 序 4-2, 程 序 4-3, 程 序 4-4 所 使 用 的 造型 
相同 ,程序 结构 也 都 简单 而 且 相 似 , 但 由 于 对 参数 的 控制 方式 
的 变化 ,就 造成 了 结果 的 完全 改观 。 掌 握 控 制造 型 绘图 的 参数 
的 方法 ,是 学 习 造 型 作 图 技巧 的 很 重要 的 内 容 。 
程序 4-4 

100 REM 放大 倍数 SCALE 对 造型 的 影响 

110 GOSUB 3000 

120 ROT= 0 

130 FORI 王 1TO24 

140 SCALE= I:X 一 IxI/5 十 2 

150 DRAW 1ATX,X: DRAW 1AT191 一 X,X 
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155 DRAW 1ATX,191 一 X:, DRAW 1AT191 一 X,191 一 XX 
160 NEXTI 
170 GET A$ : HOME : TEXT : END 





图 4-7 正方 形 造型 〈 三 ) 


《四 ) 旋转 参数 对 造型 的 影响 


造型 旋转 的 角度 , 共 可 选择 64 种 ,从 ROT 王 0 到 ROT== 

64 依次 对 应 于 旋转 0" 到 旋转 360"。 如 果 ROT =144, 那 么 它 

实际 上 就 是 ROT 王 144 一 64 一 64, 即 ROT 一 16 ,旋转 了 90*。 

在 ROT=N 这 个 BASIC 语句 中 ,N 的 有 效 值 是 它 的 整数 部 分 ， 
。80 。 


0<Ns<255， 折 选择 的 旋转 角度 =5. 625"XN。 实 际 上 可 供 选 
择 的 旋转 角度 还 受到 放大 倍数 的 限制 , 当 SCALE=1 时,N 只 
有 4 个 有 效 值 ,它们 是 0.16.32、48, 分 别 对 应 于 0" .90"、180*"、 
270"; 当 SCALE 王 2 时 ,N 有 8 个 有 效 值 ,它们 是 0.8、16、24、 
32、40、48、56 ,分 别 对 应 于 45" 的 整数 倍 ; 当 SCALE=3 时 ,有 
效 的 方向 是 22. 5" 的 整数 倍 ; 当 SCALE 王 4 时 ,有 效 的 方向 是 
11. 25* 的 整数 倍 。 只 有 当 SCALE 之 值 大 于 、 等 于 5 时 ,64 个 方 
向 才 都 有 效 。 

旋转 参数 对 造型 的 影响 是 很 大 的 ,运用 得 好 ,可 以 取得 很 
别致 的 绘图 效果 。 程 序 4-5 将 显示 屏幕 分 成 6 块 (图 4-8) ,每 
次 由 140 一 180 句 绘 出 6 个 相同 的 正方 形 ,它们 的 旋转 角度 与 
放大 倍数 都 由 循环 变量 工控 制 。 随 着 I 的 变化 ,这 6 幅 画面 仿 
佛 被 轻 纱 绾 系 成 一 个 整体 。 程 序 4-5 仍然 使 用 图 4-4 的 1 号 
造形 与 程序 4-2 的 3000 一 4000 句 的 程序 段 


aa NS 本 : SN 


图 4-8 正方 形 造型 (四 ) 





。81 。 


程序 4-5 
100 REM 旋转 的 效果 
110 GOSUB 3000 
120 ST 一 94 
130 FEORI 王 40TO48 
140 SCALE 一 I: ROOT 一 工 一 开 
150 FOR YC 一 49TOYC 十 STSTEP ST 
160 FOR XC 一 46TO46 十 2 *STSTEPST 
170 DRAW 1 AT XC,YC 
180 NEXT XC,YC 
190 NEXT I : END 


(五 ) DRAW 与 XDRAW 的 区 别 


DRAW 是 按 当前 已 经 被 设 定 的 颜色 绘 出 造型 ,用 DRAW 
绘 出 的 造型 ,线条 清晰 。 如 果 是 用 简单 的 几何 图 形 作 为 造型 ， 
组 合 形成 画面 后 ,也 比较 容易 辨认 出 原来 所 使 用 的 基本 图 形 
的 形状 。 而 XDRAW 则 是 用 互补 色 绘 出 造型 , 它 受 屏幕 上 已 
有 画面 的 影响 较 大 .XDRAW 有 一 个 最 大 的 特点 ,如 果 连 续 两 
次 以 同样 的 放大 倍数 .旋转 角度 与 绘图 起 点 坐标 画 出 同一 个 
造型 ,那么 第 二 次 绘制 造型 的 效果 就 是 氛 除 前 一 次 画 出 的 造 
型 。 如 果 说 XDRAW 绘图 的 特色 是 运用 互补 运算 ,干扰 已 有 
图 象 , 表 现 为 “活性 ? 较 好 ,那么 DRAW 绘图 方式 则 以 “稳定 
性 ”使 当前 画 出 的 造型 保持 了 原 有 的 形象 ,与 屏幕 上 已 有 的 图 
象 相互 衬 映 。 

程序 4-6 是 一 个 了 解 DRAW 与 XDRAW 绘图 方式 之 间 
的 差异 的 程序 , 它 同 时 也 是 对 本 节 内 容 的 (二 )、 三 )、( 四 ) 的 
回顾 。 它 同时 使 用 了 改变 绘图 起 点 坐标 .旋转 参数 与 放大 倍数 
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的 方法 。 程 序 运行 后 ,选择 1, 则 变量 MODE=0,1520 句 的 条 
件 成 立 , 用 DRAW 方式 画 造型 ;选择 2, 则 变量 MODE=1， 
1530 句 的 条 件 成 立 , 用 XDRAW 方式 绘 出 造型 。 变 量 S 控制 
着 放大 倍数 ,ST 控制 着 旋转 参数 。 由 于 绘图 起 点 坐标 沿 着 不 
同 半径 的 圆周 轨迹 移动 ,所 以 在 绘 出 图 4-9 的 过 程 中 ,图 4-4 
的 1 号 造型 就 象 在 屏幕 上 作 不 同 的 圆周 运动 。 程 序 4-6 也 还 
是 使 用 程序 4-2 的 3000 一 4000 句 的 程序 段 来 读 入 造型 表 和 
设 定 图 画 状 态 。 





图 4-9 正方 形 造型 (五 ) 
XDRAW 方式 ( 左 ) DRAW 方式 ( 右 ) 


程序 4-6 
100 REM DRAW 与 XDRAW 两 种 绘图 方式 
110 PRINT "1 选择 DRAW 方式 ";, PRINT "2. 选择 XDRAW 
方式 : GET A$ : IF A$ < OR A$ >>"2"THEN 110 
120 MODE = ASC (A$) 一 49: GOSUB 3000 
130 S 一 64:ST 一 8:P 一 8 * ATN (1) /64 
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140 FOR A 王 2TOoO80STEP23:SCALE 王 S: GOSUB 1500:S 一 
S/2:ST 王 ST/2:NEXT : END 

1500 FORI 王 0TO63STEPST 

1510 ROT= I:T 王 Ix* P:X 一 140 十 Ax COS (T):Y 一 95 十 

A x* SIN (T) 

1520 下 NOT MODE THEN DRAW 1 ATX,Y 

1530 IF MODE THEN XDRAW 1 ATX,Y 

1540 NEXT : RETURN 


五 、 扩 充 造型 绘图 的 功能 


在 上 一 节 中 ,曾经 讲 过 ,由 于 造型 绘图 仅 是 采用 了 线性 放 
大 的 方法 ,这 就 使 得 一 些 精美 的 造型 被 放大 绘制 时 ,产生 严重 
失真 , 令 人 遗憾 。 为 了 弥补 这 方面 的 不 足 , 作 者 编制 了 一 个 很 
短 的 机 器 语言 程序 ( 表 4-7), 它 以 零 页 的 $4C(76) 单 元 中 的 
值 作为 放大 倍数 SCALE 之 值 , 并 以 该 值 作 为 X 方 向 的 重复 次 
数 ; 同 时 以 零 页 的 $40(77) 单 元 中 的 内 容 作为 竖 直 方向 上 的 
重复 次 数 。 这 个 程序 采用 了 浮动 装 入 方式 ,你 可 以 自己 指定 存 
放 的 起 始 地 址 。 由 于 它 使 用 了 BASIC 的 && 命令 ,所 以 在 执行 
前 ,必须 先 在 $3F5 单元 中 存 入 十 六 进 制 数 $4C(76) ,在 
$3F6 (1014) 与 $3F7(1015) 中 存 入 这 个 程序 的 起 始 地 址 。 

在 BASIC 程序 中 ,使 用 这 个 机 器 语句 程序 的 命令 格式 是 
&RNATX,Y。 它 相当 于 DRAW N ATX,Y。 由 于 本 书 不 讲述 
机 器 语言 ,所 以 在 程序 处 理 方式 中 ,采用 了 比较 简单 的 方式 ， 

表 4-8 给 出 了 两 个 楷书 体 汉 字 “ 中 华 ” 的 造型 代码 表 。 为 
了 在 造型 表 中 ,给 索引 表 部 分 留 出 2 页 的 位 置 ,也 就 是 可 以 存 
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放 255 个 造型 索引 值 的 内 存 空 间 ,所 以 造型 表 的 起 始 地 址 放 

在 $7000.。 由 于 第 一 个 造型 的 起 始 地 址 是 $7200, 所 以 它 的 索 

引 值 是 $ 200; 第 二 个 造型 的 起 始 地 址 是 $7278, 所 以 它 的 索 

引 值 是 $ 278.。 假 定 有 255 个 造型 ,那么 目前 索引 表 的 内 容 是 ; 
7200 一 FF 00 00 02 78 02 00 00 


表 4-7 “DRAW 命令 的 扩充 (机 器 语言 程序 B4-1) 
6000 一 20 2D F7 A6 4C A4 4D 86 
6008 一 FE 84 FF A6 4C 86 E7 A6 
6010 一 E0 A4 El 86 4A 84 4B Ab 
6018 一 ]A A4 1lB 86 00 84 01 Ab6 
6020 一 00 A4 01 86 1lA 84 1B A5 
6028 一 F9 20 01 F6 C6 FE A5 FE 
6030 一 F0 14 18 A9 01 65 E0 AA 
6038 一 A9 00 65 El A8 A5 E2 20 
6040 一 11 F4 A9 00 F0 D9 C6 FF 
6048 一 A5 FF F0 11 A5 4C 85 FE 
6050 一 E6 E2 A6 4A A4 4B 86 EI 
6058 一 84 El 18 50 E0 60 


表 4-8 ”楷书 体 汉字 “中 华 ” 的 造型 代码 
7200 一 21 24 IC 2D 36 36 36 B6 
7208 一 21 24 24 24 AC 36 36 36 
7210 一 45 2B 2D 25 3F 3F 44 43 
7218 一 43 2B 2D E5 2B 2D 36 36 
7220 一 36 36 36 36 36 36 36 76 
7228 一 24 24 24 24 24 24 24 24 
7230 一 24 24 3C 24 24 24 24 2C 
7238 一 36 36 36 36 35 36 45 23 
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7240 一 C4 24 24 24 95 92 52 36 
7248 一 45 23 35 25 2D 30 36 36 
7250 一 36 36 25 24 24 24 24 35 
7258 一 36 36 36 45 43 43 23 24 
7260 一 AD B3 92 DB 1lB 3F 3F 17 
7268 一 2D 2D E5 DB 3B 40 33 36 
7270 一 36 36 36 36 36 36 36 00 
7278 一 2D 2D 2D 2D 2D 35 3E 3F 
7280 一 3F 3F 18 3F 97 49 29 6D 
7288 一 49 36 36 36 36 36 36 0E 
7290 一 24 24 24 24 24 24 24 2D 
7298 一 2D 2D C5 3B FF 23 2C 2D 
72A0 一 2D 2D 45 43 2B 2D AD 3F 
72A8 一 3F 3F 3F 3F 24 6D 38 3F 
72B0 一 3F 4C 2D C5 23 1C 3F JEF 
72B8 一 36 36 36 36 3F 3F 67 24 
72C0 一 3F 0OC 2D IC 4C 92 52 09 
72C8 一 24 24 24 24 BF 3F 67 3C 
72D0 一 2C 4D 31 0OE 2D C5 1B 60 
72D8 一 39 3F 3F 3F 3F 3F 17 3C 
72E0 一 67 09 2D 2D 2D 2D 2D 2D 
72E8 一 2D 2E C4 l]B 3F 3F 3F 3F 
72F0 一 3F 0OC 25 0OC 2C 36 37 2D 
72F8 一 4D 24 AC 36 2D 1C 04 00 


程序 4-7 在 100 句 设 定 & 命令 的 入 口 在 $6000( 根 据 表 
4-7)。120 名 告诉 BASIC 解释 程序 ,造型 表 的 起 始 地 址 在 
$7000。130 句 设 定 放 大 倍数 .重复 次 数 与 旋转 角度 。 由 于 每 
个 造型 的 起 始 向 量 的 位 置 不 同 , 所 以 用 循环 方式 ,每 次 读 入 起 
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点 坐标 (XC,YC) 。 图 4-10 是 程序 4-7 与 机 器 语言 程序 ( 表 4- 


7) 配 合 执行 的 结果 。 
程序 4-7 
100 POKE 1013,76: POKE 1014,0: POKE 1015,96 
110 TEXT : HOME : HGR : HCOLOR 一 3 
120 POKE 232,0: POKE 233,112: REM $7000 
130 POKE 76,3: POKE 77,3: ROT=- 0 
140 FORI 王 1TO2:READXC,YC 
150 MIATXC,YC 
160 NEXTI 
170 END 
200 DATA 45,50,150,60 


0 





图 4-10 楷书 
习 题 
1. 将 下 列 二 进 制 数 转换 成 十 六 进 制 数 与 十 进 制 数 : 
10110101 @ 11001010 
11100111 由 10011111 


@ 


2. 将 下 列 十 六 进 制 数 转换 成 十 进 制 数 ; 


e。 87。 


中 $36 
四 $801 


Q@ $9c 
图 $cC36E 


图 4-11 是 四 幅 图 案 的 四 分 之 一 部 分 的 点 阵 , 左 上 和 角 是 旋转 中 心 。 分 
别 将 这 四 幅 图 编制 成 造型 表 , 并 都 以 左上 角 为 造型 起 点 。 用 SCALE 
=1, 在 同一 坐标 点 ,用 每 次 旋转 90" 的 方法 画 出 完整 的 图 案 。 


| | | | | 请， 
到 可 生 到 酌 帮 | 和 
三面 可 名 本 因 是 晤 加 得 

辆 鲍 最 国 硬 丁丁 。 四 国 
模 辆 到 二 [ 
图 4-11 点 阵 图 


将 程序 4-1 的 七 只 梅花 鹿 改 成 九 只 梅花 鹿 ,并 围 成 一 个 圆周 。 
使 用 图 4-2 的 三 角 造 型 ,用 改变 放大 倍数 与 旋转 参数 的 技巧 , 画 出 


一 个 由 三 角形 组 合成 的 画面 。 


以 程序 4-2 提供 的 正方 型 造型 (图 4-4 的 2 号 造型 ) 作 为 构图 基础 ， 
以 本 章 第 四 节 所 述 的 几 个 影响 造型 的 因素 作为 变化 图 象 的 手段 , 编 


制 几 个 充分 发 挥 你 想象 力 的 图 象 。 
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区 提 和 大井 大 各 夺 千 大 大 大 大 村 村 村 夺 千 大井 

字 节 对 应 作 图 法 实际 上 是 另 一 种 
造型 方式 , 它 首先 将 图 形 按 规定 方式 
表达 为 一 个 二 维和 阵 的 数据 表格 ， 然 
后 按 行 列 次 序 , 送 到 显示 区 的 指定 地 
址 ,通过 计算 机 的 扫描 ,这 些 被 存放 好 
的 数据 ,被 转换 为 电信 号 ,以 图 象 的 形 
式 显 示 于 屏幕 上 。 

由 于 字 节 对 应 作 图 法 直接 将 图 勾 
数据 存 入 内 存 中 的 高 分 辨 图 象 单 元 ， 
所 以 它 的 速度 (就 机 器 语言 而 言 ), 要 
远 胜 于 其 它 绘图 方式 。 好 的 汉字 系统 、 
图 形 软件 游戏 程序 ,几乎 都 要 借 它 生 
辉 。 用 字 节 对 应 作 图 法 绘制 的 图 的 其 
色 不 受 BASIC 语言 规定 色彩 的 限制 ， 
而 只 受 醒 件 的 约束 ,所 以 可 以 充分 利 
用 第 二 章 中 关于 色彩 部 分 叙述 的 方 
法 ,去 取得 更 丰富 的 彩色 显示 效果 。 在 

才 寺 寺 寺 二 二 下 寺 寺 寺 寺 寺 寺 寺 二 十 直 寺 于 


机 
X 直 寺 填 寺 寺 寺 但 才 寺 才 寺 直 下 直 直 才 才 坦 寺 才 条 才 直 者 才 寺 填 填 X 
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和 大 和 寺 大 夺 寺 井 夺 寺 夺 寺 寺 和 大志 拉 夺 和 区 


绘制 图 画 与 书写 体 中 文 时 ,更 可 以 利 
用 每 个 字 节 的 最 高 位 By 的 移 相 作用 ， 
对 黑白 图 象 与 文字 作 细 部 修整 ,提高 
图 象 与 字体 的 质量 。 由 于 这 种 绘图 方 
式 需 要 了 解 图 象 元 素 与 存储 器 的 一 一 
对 应 关系 ,并 且 一 般 都 采用 机 器 语言 
编写 程序 ,以 至 使 许多 有 兴趣 的 读者 
蝴 而 远 之 。 本 章 从 BASIC 语言 的 角度 
来 讲述 字 节 对 应 作 图 法 ,并 在 最 后 一 
节 把 这 种 绘图 方式 与 向 量 造 型 结合 起 
来 ,向 读者 介绍 一 种 很 有 价值 ,新 颖 有 
趣 的 双 壁 绘图 法 。 


汉 井 井 井 井 井 井 井 井 井 井 大 大 大 志 寺 所 夺 大寺 大寺 和 
X 寺 直 寺 寺 寺 寺 寺 寺 寺 站 寺 寺 填 寺 填 填 寺 二 二 十 二 二 


才 寺 寺 寺 寺 寺 站 寺 寺 寺 寺 寺 寺 寺 填 寺 填 寺 于 


一 、 屏 幕 显示 区 与 地 址 的 关系 


高 分 辨 图 形 显 示 页 的 地 址 次 序 与 屏幕 显示 位 置 的 关系 ， 
类 似 于 文本 状态 。 程序 5-1 按照 地 址 次 序 ,向 高 分 辨 存储 区 存 
入 代码 。 程 序 运行 后 ,可 以 直观 地 看 到 整个 屏幕 分 为 上 .中 、 下 
三 部 分 。 这 三 部 分 所 对 应 的 三 条 扫描 线 ( 第 n 条 ,第 64+Tn 条 ， 
第 128 二 n 条) 的 地 址 是 连 在 一 起 的 ,每 条 扫描 线 占 40 个 字 节 
(CBYTE) ,整数 n 的 取 值 范围 是 0 至 63。 每 一 部 分 又 分 为 8 个 
条 状 小 区 域 , 在 同一 部 分 中 ,上 下 两 个 条 状 小 区 域 的 地 址 值 相 
差 128。 每 个 条 状 小 区 域 各 有 8 条 扫描 线 , 相 当 于 文本 状态 下 
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的 一 行 。 

零 页 的 $E6(230) 单 元 中 存放 着 高 分 辩 显 示 页 的 起 始 地 
址 的 高 位 。 在 HGR 命令 被 执行 后 , $E6 单元 中 存放 的 值 是 
$20(32); 在 HGR2 命令 被 执行 后 , $E6 单元 中 存放 的 值 是 
$40(64) 。BASIC 命令 PEEK(X) 会 从 指定 内 存 地 址 X 中 取出 
该 地 址 内 存放 的 代码 的 十 进 制 数值 。 
程序 5-1 

110 HGR : POKE 一 16302,0:B 一 127 

120 FORI 王 256 * PEEK (230) TO 256 * PEEK (230) 十 8184 

130 POKE I,B:; NEXT I，END 

程序 5-2 可 打印 高 分 辨 显示 页 的 纵 坐 标 Y 值 ,及 其 对 应 
的 扫描 线 的 起 始 地 址 的 十 六 进 制 与 十 进 制 的 值 。 在 这 个 程序 
中 ,首先 由 110 句 将 一 个 很 短 的 机 器 语言 程序 存 入 由 $6000 
(24576) 开 始 的 内 存 地 址 中 ,再 由 120 句 将 高 分 辨 显示 页 第 一 
页 的 起 始 地 址 高 位 的 值 存 入 $E6(230), 供 130 句 中 的 
HPLOT 语句 使 用 。 在 130 句 中 使 用 HPLOT 0,Y 是 为 了 方便 

六 进 制 运 算 , 由 计算 机 根据 这 个 命令 ,自动 把 基地 址 存 到 零 

页 的 $26(38) 与 $27(39) 单 元 。CALL 24576 会 叫 用 $6000 
的 那 段 机 器 语言 ,输出 基地 址 的 十 六 进 制 值 ,变量 A 则 会 提 
供 基 地 址 的 十 进 制 数 。 
程序 5-2 

100 REM 高 分 辨 基地 址 十 六 进 制 与 十 进 制 对 照 表 

110 FORK 王 24576 TO 24583: READ A: POKE K,A: NEXT K 

120 POKE 230,32 

130 FORY =0TO 191: HPLOT 0,Y: PRINT " 一人 Y; TAB 

(9)37(C 和 3 CALL 24576: PRINT "一 多 
140 A 一 256 * PEEK (39) 十 PEEK (38):A$ 一 STR 和 $ (A)， 
se。 9Ol。 


IF LEN (A$) <5THEN A$ 一 A$ 十 ”” 

150 PRINT A$;”)": NEXTY 

160 DATA 165,39,166,38,32,65,249,96 

在 第 四 章 中 已 经 说 过 ,每 个 基本 存储 单元 ( 字 节 ) 共 有 8 
个 信息 位 ,用 Bu,Bi,…,B 表示 ,B; 是 最 高 位 。 每 个 信息 位 称 
为 1 比特 (BIT)。 在 高 分 辨 图 形 显 示 页 中 ,B 被 用 来 选择 颜 
色 , 从 硬件 的 角度 来 说 ,就 是 要 通过 B* 电位 的 高 低 (1 状态 与 
0 状态 ) 的 不 同 , 来 区 别 与 选择 彩色 信和 号 输出 的 相位 ,取得 改 
变 彩 色 显 示 的 效果 。 而 Bo 一 Be 则 依次 代表 一 条 扫描 线 上 从 左 
向 右 7 个 连续 的 点 的 亮 与 暗 (图 5-1) 。 由 于 一 条 扫描 线 由 40 
个 字 节 组 成 ,所 以 水 平方 向 共有 280 个 点 。 用 整数 n 来 表示 这 
40 个 字 节 中 的 某 一 位 CBIT) 所 对 应 的 水 平 坐标 (0 和 nn 委 39)， 
那么 Bu 总 是 对 应 水 平 坐 标的 0,7,14，…,7n,…，273,B; 总 是 
对 应 于 水 平 坐标 的 1,8,…,7n 十 1,…，,274,…… 了 Be 总 是 对 应 
于 6,13,…,7n 十 6,…,279。 要 注意 ,Bo 一 Be 的 顺序 与 显示 格 
式 相 同 ,而 与 习惯 的 书写 格式 相反 。。 


图 5-1 Bo 一 Be 表示 7 个 光 点 ,B 是 颜色 选择 位 


当 Bo 一 Be 的 某 一 位 内 的 信息 为 1 时 , 它 所 对 应 的 那个 坐 
标点 就 是 一 个 亮点 ,如 果 这 一 位 内 的 信息 变 为 0, 对 应 坐标 点 
的 亮点 也 就 熄灭 ,成 为 一 个 暗 点 。 举 例 来 说 $ 20B0 单元 处 于 
第 73 条 扫描 线 , 即 纵 坐 标 立 =72; 水 平方 向 处 于 第 9 个 字 节 
一 8), 所 以 它 的 Bo 一 Be 依次 对 应 于 水 平 坐标 56 一 62, 如 果 
它 的 Be 是 1, 而 其 它 位 都 是 0, 那 么 $ 20B0 中 存放 的 值 是 1， 
要 使 Be 表示 的 点 变 黑 , 而 使 B4,Bs,Bs 代表 的 点 都 变 亮 ,只 要 
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再 向 $ 20B0 单元 中 存 入 112(24 十 25 十 25) 即 可 。 实 现 这 一 点 的 
BASIC 命令 是 POKE 8368,112。 

当 HCOLOR， 指定 的 颜色 范围 在 0~3 时 ,B;= 王 0; 当 HCO 
LOR 指定 的 颜色 范围 在 4 一 7 时 ,B? 王 1。 如 果 以 B=0 时 的 显 
示 位 置 作为 基准 ,那么 在 B;=1 时 ,由 于 计算 机 的 高 分 辨 光 加 
电路 的 控制 ,同一 个 字 节 的 7 个 点 的 屏幕 位 置 将 向 右 移动 半 
个 坐标 点 的 宽度 。 这 在 彩色 显示 状态 下 ,产生 改变 色彩 的 效 
果 ; 在 只 追求 黑白 显示 效果 的 情况 下 ,相当 于 水 平方 向 有 560 
个 点 。 这 对 于 增加 高 分 辨 状态 下 的 图 形 或 文字 的 边缘 光滑 度 ， 
是 很 有 用 的 。 图 5-2 是 两 种 显示 位 置 的 示意 图 。 





图 5-2 ”B; 对 显示 位 置 的 影响 


二 、 建 立 字 节 对 应 造型 表 


建立 字 节 对 应 造型 表 可 以 分 三 步 进 行 : 

1， 把 图 形 或 文字 按 适 当 大 小 分 割 为 一 个 个 小 方 格 ,每 一 
个 小 方 格 表 示 一 个 点 ; 

2 将 水 平方 向 的 小 方 格 按 7 个 点 分 组 ,用 纵向 粗 线 分 
开 , 每 组 对 应 一 个 字 节 ; 

3. 按 行列 次 序 , 将 每 个 字 节 的 图 形 二 进 制 信息 ,转换 成 
十 进 制 或 十 六 进 制 数 ,取得 字 节 对 应 造型 的 二 维 数据 表格 。 

图 5-3 的 花苞 图 案由 14X16 的 点 阵 组 成 , 它 可 以 用 一 个 
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2X16 的 数据 矩阵 表示 , 见 表 5-1。 
表 5-1 花苞 图 形 的 字 节 对 应 造型 表 
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在 将 原始 的 二 进 制 图 象 数据 翻 


本 加 时 加。 王 ， 二 是 ”” 译 为 十 六 进 制 或 十 进 制 数 的 过 各 
昌 加 国 中 ,最 令 人 不 习惯 ,以 至 使 翻译 速 

要 时 时 。 度 大 为 下 降 的 原因 是 图 象 数据 的 

虽 曲 四 四 位 (BIT) 对 应 的 排列 次 序 与 习惯 的 

归 书写 格式 相反 。 为 了 方便 ,我 们 给 
本 下 天 回国 。 国 出 一 个 由 计算 机 自动 完成 这 个 翻 
罚 本国 一。 译 过 程 的 转换 程序 5-3。 每 当 计 算 
2 机 询问 当前 要 被 翻译 的 字 节 的 位 


对 应 图 象 数 据 (Image data) 时 ,就 直 
接 按照 7 个 点 的 左右 次 序 , 根 据 要 绘 的 点 为 1, 不 绘 的 点 为 
零 , 输 入 原始 式样 的 二 进 制 代码 。 例 如 图 5-2 中 ,对 于 一 个 字 
节 所 描绘 的 点 , 设 输入 0001011, 如 果 选 择 B;=1, 就 输入 
00010111.。 当 最 后 的 n 位 CBIT) 都 是 0 时 ,可 以 省 略 这 部 分 , 例 


es。 9094。 


如 0110000 ,可 以 只 输入 011。 计 算 机 在 翻译 完 后 ,就 会 打印 出 
与 书写 格式 一 致 的 二 进 制 数 . 十进制 数 和 十 六 进 制 数 .如 果 输 
入 的 二 进 制 数 超过 八 位 ,计算 机 就 会 提示 :“ToOo HIGH”( 太 
大 了 ) ,并 重新 执行 。 输 入 任何 以 “E? 或 "Q? 开 头 的 字符 串 , 程 
序 就 结束 。 输 入 其 它 字 符 串 ,计算 机 会 告诉 你 :“ ERROR IN 
CODE”( 代 码 错 误 ), 并 重新 执行 。 

下 面 是 转换 程序 与 运行 的 例子 。 
程序 5-3 

100 REM 图 象 数据 转换 程序 

110 DIM H 和 (15) 

120 PRINT :; INPUT "Image data ; 必 A 和 并 一 LEN (A$) 

130 B$ = LEFT 和 4 (A$,1):IFB$ = 和"ORB 和 $ 一"Q"THEN 


END 
140 IFL > 8THEN PRINT MTOO HIGH' GHR 和 $ (7): RUN 
150 B 一 0:T$ ="": FORI 王 1TOL 


160 B$ = MID$4 (A$,I1) 

170 IFB$ 一 >"THENIFB$ 一 > "0"THEN PRINT 
”ERROR IN CODE"; CHR $ (7):， RUN 

180 D=2” (一 1) x (B$ 一 7) 

190 B 一 B 十 D:T$ = B$ 十 TV$ 

200 NEXTI 

210 FORI= 0Tol15:IFI<10THENH$CO) = STR 和 (D 

220 IFI>> 9THEN READ H$(D:, DATA A,B,C,D,E,F 


230 NEXTI 

240 H1 = INT (B/16):H2 王 B 一 16 * HIl 

250 PRINT TAB( 8);"Binary number'; TAB( 27)3;": "3T 几 
260 PRINT TAB( 8) ;Decimal number"; TAB( 27) 和 :5 了 
270 PRINT TAB( 8) "Hexadecimal unmber : "37" 委 儿 
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HS$ CHI);H$ CH2) 

本 程序 的 关键 部 分 是 180 与 190 句 ,180 句 使 用 了 逻辑 
表达 式 B$ =“1”, 当 B$ 一 “1? 成 立时 ,这 个 逻辑 式 的 运算 结 
果 是 1( 真 ), 否 则 为 0( 假 )。 它 通过 乘 运算 ,决定 了 2 一 :的 结果 
是 否 为 0, 达 到 将 某 一 个 二 进 制 信息 位 (BIT) 的 值 转换 为 十 进 
制 数 的 目的 。190 句 的 B 王 B 十 D 完成 累加 求 和 ,T$ 王 B$ 十 T 
$ 则 将 二 进 制 数据 的 字符 串 , 反 转 为 与 书写 格式 一 致 的 表达 
形式 。 当 程序 进入 240 句 时 ,数组 变量 H$ (D 中 存放 着 十 六 
进 制 数 的 16 个 符号 ,简单 变量 B 中 是 翻译 后 得 到 的 十 进 制 
数 。 


三 、 绘 制 字 节 对 应 造型 


用 字 节 对 应 作 图 法 作 图 时 ,首先 要 编 好 字 节 对 应 造型 表 ， 
并 把 表 中 的 数据 写成 BASIC 程序 的 DATA 语句 ,数据 安放 的 
次 序 与 阅读 的 次 序 相同 。 例 如 表 5-1 的 前 四 个 数据 依次 为 :0， 
124,15,18。 程 序 5-4 是 绘制 字 节 对 应 造型 的 一 个 例子 ,在 这 
个 程序 中 ,造型 是 一 只 蟹 。5000 一 5100 的 DATA 语句 中 的 数 
据 就 是 外 的 字 节 对 应 造型 表 , 它 每 行 有 5 个 数据 , 共 22 行 。 

程序 5-4 中 的 XB 是 水 平 坐标 (以 字 节 为 单位 ) 的 起 始 
值 ,XE 是 水 平 坐标 的 终 值 ,YB 是 纵 坐 标的 起 始 值 ,Yw 是 图 
形 的 行 数 ,YE 是 纵 坐 标的 终 值 。 

为 了 能 直接 存放 数据 ,必须 先 求 每 一 行 的 基地 址 ,程序 在 
进入 图 型 状态 后 ,首先 由 140 句 向 键盘 缓冲 区 $ 2F0 开始 的 
一 段 中 , 存 入 一 个 很 短 的 求 基地 址 的 机 器 语言 程序 ,以 后 ,每 
当 纵 坐 标 Y 之 值 改 变 后 ,就 由 CALL 752 调用 (160 句 ), 再 由 
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170 句 取得 基地 址 的 十 进 制 值 ,并 赋 给 变量 A。 每 执行 一 次 程 
序 段 160 一 240 句 ,就 画 出 水 平一 排 六 只 钱 。200 句 的 D: 一 255 
一 D 是 为 了 取得 黑白 反 相 的 图 形 数据 。 
程序 5-4 

100 REM 字 节 对 应 造型 的 绘制 

110XB 一 0:XE 一 4 

120 YB 一 0:YW 一 22 

130 HGR :A = 752: REM 。 $2F0 

140 POKE A,165: POKE A 十 1,255: POKE A 十 2,160, POKE 

A 十 3,0: POKE A 十 4,162: POKE A 十 5,0: POKE A 十 
6,76: POKE A 十 7,23: POKE A 十 8,244 

150 FOR YB = 0 TO 100 STEP 22:;YE 一 YB 十 Yw 一 1 

160 FORY = YB TO YE: POKE 255,Y:， CALL 752 

170 A 一 256 * PEEK (39) 十 PEEK (38) 

180 FOR X = XB TO XE, READ D 

190 IFTF THEN D = 255 一 D 

200 D2 = 255 一 D 

210 FOR X1 = 0TO 22 STEP 22 

220 X2 - X 十 X1 十 A, POKE X2,D:, POKE X2 十 6,D2: POKE 

X2 十 12,D 

230 NEXT X1 

240 NEXT X,Y 

250 RESTORE :, TF 王 NOT TF: NEXT YB 

260 “END 

5000 DATA 0,32,32,0,0,0,24,64,1,0 

5010 DATA 0,76,16,3,0,0,100,32,15,0 

5020 DATA 0,62,64,7,0,0,28,0,7,0 

5030 DATA 0,76,32,3,0,56,24,17,115,0 

97 。 


5040 DATA 124,89,127,11,1,8,50,64,101,3 
5050 DATA 120,28,0,27,6,68,11,17,98,5 
5060 DATA 60,12,10,122,15,124,11,17,30,11 
5070 DATA 14,12,0,2,48,119,9,0,126,35 
5080 DATA 97,23,0,125,6,65,97,96,48,4 
5090 DATA 2,3,31,24,8,4,6,0,8,16 

5100 DATA 0,8,0,4,0,0,16,0,2,0 





图 5-4 字 节 对 应 造型 


四 、 屏 幕 图 形 的 截取 


这 里 向 你 介绍 一 个 实用 的 屏幕 图 形 的 截取 程序 (程序 5- 

5) ,利用 这 个 程序 ,可 以 很 方便 地 把 向 量 图 形 的 内 容 转 换 为 字 

节 对 应 造型 的 BASIC 数据 。 程 序 5-4 的 螃蟹 图 形 的 字 节 对 应 

造型 数据 ,就 是 使 用 程序 5-5 取得 的 ,其 中 包括 行 号 与 关键 字 
“DATA7”。 

程序 5-5 中 的 变量 XB,XE,YB,YE 的 含义 与 程序 5-4 相 

同 。 变 量 PTR 被 用 来 作为 变换 后 的 数据 的 行 号 , 它 的 初 值 由 

220 句 给 出 ,每 次 的 增 量 由 250 句 的 PTR 王 PTR 十 10 决定 。 为 
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了 取得 基地 址 ,程序 5-5 在 140 句 读 入 了 一 个 较 完 整 的 机 器 
语言 程序 ,并 使 用 了 可 以 在 BASIC 程序 与 机 器 语言 程序 间 传 
递 数 值 的 使 用 者 函数 USR(X) 。 程 序 5-5 在 130 句 设 定 使 用 者 
函数 的 入 口 地 址 是 $ 2C0(704) ,程序 通过 240 句 将 纵 坐 标 变 
量 Y 之 值 传递 给 机 器 语言 ,机 器 语言 在 求 得 该 行 的 基地 址 
后 ,再 将 基地 址 的 十 进 制 数 值 赋 给 变量 A, 完 成 传递 任务 。260 
一 290 句 完成 读 取 一 行 图 形 数据 ,并 打印 出 这 些 数据 的 工作 。 
程序 5-5 

100 REM 图 形 数据 截取 程序 

110 XB =0:XE 王 3 

120 YB 一 0:YE 王 24 

130  POKE 10,76: POKE 11,192: POKE 12,2 

140 FORI=704To767: READX:IFEX<0THEN 160: REM 

$2C0 一 $ 2FF 

150 POKE I,X:, NEXTI 

160 HGR ， POKE 一 16302 ,0: HCOLOR 一 3 

165 “PRINT CHR $ (4);"BLOAD ST.HE,A$10007" 

170 SCALE 王 1 ROT 王 0:POKE 232,0 : POKE 233 ,16 

180 N 王 1:X 王 0:Y 王 0 

190 DRAWNATX,Y 

200 GET A$:IFA$< >CHR (21) THEN TEXT : END 

210 TEXT : HOME 

220 PTR 一 5000 

230 FORY 一 YBTOYE 

240 A 一 USR (Y) 

250 IFY/2=INT(Y/2)THEN PRINT PTR:"DATA :PTR 一 

PTR 十 10 
260 FOR X 一 XBTOXE 
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270 M 一 PEEK (A 十 X): PRINT MI 

280 正 X<<XE THEN PRINT "小 

290 NEXT XXX 

300 IFY/2< >INTCY/2)ORY=YETHEN PRINT : 

GOTO 320 

310 PRINT " 必 

320 NEXTY 

330 “END 

340 DATA 32,251,230,224,192,176,16,138,162,0,160,0,32， 

23,244,164,38,165,39,76,242,226,76,153,225, 一 1 

只 要 将 变量 XZB,XE,YB、YE 调整 到 将 整个 矩形 画面 包括 
进去 ,而 且 没 有 多 余 的 行 与 列 , 在 计算 机 打印 出 运行 结果 后 ， 
将 运行 结果 按 编辑 方式 逐 句 扫描 一 遍 , 便 可 以 得 到 BASIC 数 
据 语 句 ( 字 节 对 应 造型 表 )。 如 果 行 数 较 多 ,可 以 将 YE 逐次 减 
小 (或 变 大 ) ,分 n 次 执行 ,以 便 扫描 。 

程序 中 的 200 句 是 为 调试 (修正 XB、XE、YB、YE 的 值 ) 而 
设计 的 ,只 有 按 下 [| 键 ,程序 才 会 执行 200 句 后 面 的 内 容 。 按 
下 其 它 任何 键 ,程序 就 会 不 打印 任何 信息 而 立即 结束 。 

只 要 删 去 170 一 190 句 ,并 将 165 句 装 入 造型 文件 的 DOS 
命令 改 成 装 入 某 个 画面 到 高 分 辨 第 一 页 的 DOS 命令 ,就 可 以 
截取 该 画面 的 局 部 内 容 。 

165 句 的 造型 文件 是 本 书 所 附 软盘 上 的 一 个 文件 ,读者 
自己 使 用 程序 5-5 时 ,要 注意 修改 成 自己 所 需要 的 文件 名 。 


五 、 双 壁 绘 图 法 


在 这 一 节 中 ,我 们 要 把 字 节 对 应 绘图 方式 与 造型 表 绘 图 
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方式 结合 起 来 , 象 植物 学 中 的 远亲 杂交 一 般 , 派 生出 一 个 同时 
运用 这 二 种 绘图 技巧 的 新 的 绘图 方法 .为 了 便于 叙述 ,不 仿 称 
之 为 双 壁 法 。 

字 节 对 应 绘图 方式 的 一 大 优点 是 每 个 字 节 容纳 的 信息 量 
大 ,一 个 字 节 可 以 描述 7 个 点 ,建立 字 节 对 应 造型 表 也 比 制造 
向 量 造 型 表 容 易 得 多 ,所 以 我 们 在 双 壁 法 中 ,采用 字 节 对 应 造 
型 表 来 描述 图 形 。 

向 量 造型 表 绘 图 法 的 一 大 优点 是 可 以 旋转 ,可 以 任意 指 
定 所 要 绘制 的 造型 的 起 点 坐标 。 当 向 量 造型 表 建 立 后 ,用 它 绘 
出 的 图 案 更 富 于 变化 。 在 双 壁 绘图 法 中 ,我们 把 “点 ”的 概念 给 
予 扩大 ,我 们 把 在 点 (X,Y) 处 绘制 一 个 或 几 个 造型 , 视 为 绘制 
一 个 “点 ”。 这 样 字 节 对 应 造型 表 的 每 个 数据 实际 已 不 再 需要 
存 入 某 个 存储 单元 ,这 些 数 据 仅 是 提供 一 张 二 维 图 形 表 格 。 

下 面 以 一 只 刚 起 飞 的 条 的 图 形 ( 参 照 图 5-5) 为 例 , 先 将 
图 形 按 本 章 第 二 节 所 述 方法 ,建立 字 节 对 应 造形 表 ， 

表 5-2 中 的 4X 25 个 数据 ,就 是 程序 5-6 中 390 一 470 句 
的 内 容 , 它 们 决定 了 图 象 总 体 的 形状 。 为 了 便于 实际 应 用 ,这 
个 程序 已 被 写成 通用 程序 的 格式 。 程 序 5-6 的 第 150 句 的 BIT 
一 7, 是 表示 每 个 字 节 只 采用 低 7 位 ,最 高 位 B 将 不 被 采用 。 
170 句 算出 一 个 字 节 中 ,每 个 二 进 制 位 的 十 进 制 值 , 供 210 一 
240 句 的 程序 段 使 用 。 这 个 程序 段 首先 对 读 入 的 数据 D 由 高 
位 到 低位 逐个 判断 它 的 二 进 制 信息 位 是 否 为 0, 如果 为 0, 就 
使 相应 的 变量 PGD 一 0, 否 则 使 PID 王 1CGE 王 0,T 王 1)。 而 250 
一 270 句 则 根据 P(GD 的 值 是 否 为 真 ( 非 零 ) ,来 决定 数据 D 中 
的 哪 几 个 信息 位 是 绘 “ 点 ?的 指令 ,并 由 260 句 完成 操作 。 由 于 
各 个 向 量 造 型 的 大 小 不 同 ,所 以 “点 "与 “点 ”之 间 的 水 平 间隔 
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表 5-2 鹤 的 字 节 对 应 造型 表 
96 3 64 
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63 
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由 变量 XS(130 句 ) 来 调节 ,纵向 间隔 由 YS(140 句 ) 来 调节 。 
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210 一 270 句 是 程序 5-6 的 基本 部 分 , 它 将 一 个 字 节 的 信息 ， 
转换 成 由 向 量 造 型 作为 “点 ”的 图 形 输出 。 变 量 BYTE 是 字 节 
对 应 造型 表 的 列 数 的 大 小 ,由 表 5-2 可 知 ,在 画 秽 这 幅 图 时 ， 
BYTE 王 4。190 一 280 句 就 是 完成 一 行 数 据 的 图 形 转换 工作 。 
变量 LINE(150 句 ) 说 明 字 节 对 应 造型 表 的 行 数 ,每 人 逢 进入 新 
的 一 行 , 就 必须 给 水 平 坐 标 X 赋 初 值 (180 句 ) 变量 XB 与 YB 
是 水 平 坐标 与 纵 坐 标的 初 值 .变量 REPT 是 旋转 次 数 ,如 果 向 
量 造型 不 旋转 , 则 REPT 王 1。 变 量 N 是 向 量 造 型 的 序号 , 改 
程序 5-6 

100 REM 双 壁 绘图 法 

110 DIM B(7),P(7):D = 0:T=1:F 一 0 

120 N 一 2:REPT = 1 

130 XB =16:XS 一 8 

140 YB = 16:YS 一 7:Y 一 YB 

150 BIT =7:BYTE 一 4:LINE 一 25 

160 GOSUB 310 

170 FORI 王 0TO7:BG) 一 2” INEXT 

180 FORL 一 1TOLINE:X 一 XB 





190 FOR H = 1 TO BYTE 
200 READD:IFD=0THENX 一 X 十 BIT x* XS 十 XS， 
GOTO 280 


210 FORI 王 BITTOO0OSTEP 一 1 
220 IFD< 了 BOGI)THEN PGD) 一 下 
230 IFD >>= B(ID) THEN P(G) 王 T:D 王 D 一 BO 
240 ENXTI 
250 FORK 一 0TOBIT 
260 IF PGIK) THEN FOR W 一 0TO REPT:， ROT 王 了 R x* W: 
DRAWN AT X,Y: NEXT VW 
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270 
280 
290 
300 
310 
320 
330 
340 
350 


360 


370 
380 
390 
400 
410 
420 
430 
440 
450 
460 
470 


和 一 和 十 XS: NEXTK 
NEXT H 
YY 一 YY 十 YS: NEXTL 
GET A$ : TEXT : END 
FORI 王 0TO7:BGD 一 2 ”I: ENXT 
HGR :POKE 一 16302,0: HCOLOR 王 3 
SCALE 一 1:R 一 64 / REPT 
REPT 一 REPT 一 1:BIT 一 RIT 一 1 
IF PEEK (233) 王 112 AND PEEK (28676) 一 65 THEN 380 
REM $E9 & $7004 
PRINT CHR 和 $ (4);“BLOAD  ST. SHAPE. 5-6,A$ 
7000? 
POKE 232,0: POKE 233,112 
RETURN 
DATA 96,3,64,63,16,2,60,6,127,99,67,3 
DATA 64,19,112,0,64,9,30,0,96,8,4,0 
DATA 96,8,30,0,48,8,15,0,56,70,15,0 
DATA 100,1,30,0,4,64,127,0,4,0,96,3 
DATA 8,0,100,15,112,63,120,7,0,64,9,0 
DATA 0,0,14,0,0,0,56,0,0,0,36,0 
DATA 0,0,34,0,0,0,34,0,0,0,34,0 
DATA 0,0,34,0,0,0,36,0,0,0,72,0 
DATA 0,0,0,1 

表 5-3 ” 供 程序 5-6 使 用 的 向 量 造型 表 

7000 一 06 00 0OE 00 41 00 54 00 
7008 一 68 00 8D 00 AF 00 2D 2D 


7010 一 2D 2D 2D AD 15 15 15 15 
7018 一 36 36 36 36 36 3E 3F 3F 
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7020 一 3F 3F 3F 47 3B 38 38 38 
7028 一 20 24 24 24 24 2C 15 15 
7030 一 15 15 2D 2D 2D 2D 2D DE 
7038 一 DB DB 1lB 36 36 36 36 36 
7040 一 00 0OE F5 37 16 56 64 24 
7048 一 0C 2D I0 38 16 0 36 3E 
7050 一 3F 47 3B 00 2D 2D 38 3F 
7058 一 67 2D 2D 24 24 24 24 24 
7060 一 24 AC 35 35 37 35 36 00 
7068 一 2D 2D 2D 2D 15 3F 3F 3F 
7070 一 3F 37 36 36 36 0OE 24 24 
7078 一 24 2C 2D 2D 2D 2D 15 3F 
7080 一 3F 3F 3F 37 36 36 36 0E 
7088 一 24 24 24 2C 00 15 3F 17 
7090 一 2D 2D 15 3F 3F 3F 17 17 
7098 一 17 17 17 17 2D 2D 25 24 
70A0 一 2D 2D 2D 2D 36 2E 2D 2D 
70A8 一 IlC 1lC IC 1IC 1C 04 00 09 
70B0 一 6D 09 36 36 36 36 0OD 1E 
70B8 一 l]F B8 3F 20 24 0C 24 FC 
70C0 一 33 0OE 06 00 


变 它 的 值 , 就 是 通过 选用 其 它 向 量 造型 ,来 改变 “点 ”的 图 形 ， 
它 与 控制 “点 ”的 密度 分 布 的 变量 XS、YS 以 及 变量 REPT 是 
共同 产生 图 形 的 组 合 效应 ,使 双 壁 绘图 法 得 以 生 辉 的 一 大 关 
键 。 在 执行 程序 5-6 之 前 ,必须 先 编 好 向 量 造型 表 , 如 果 造 型 
表 已 被 存 于 $ 7000 处 ,可 以 删 去 360 句 。 程 序 5-6 所 用 的 向 
量 造 型 表 是 表 5-3。 当 选用 表 5-3 造型 时 ,程序 的 运行 结果 是 
图 5-5。 
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图 5-5 双 壁 绘图 法 (一 ) 


由 于 字 节 对 应 作 图 法 中 只 使 用 了 7 个 比特 (BIT) ,所 以 飞 
芍 的 数据 都 是 小 于 128 的 数 ,B* 在 双 壁 绘图 法 中 ,似乎 遭 到 
了 冷遇 。 现 在 ,让 我 们 为 发 挥 By 的 信息 作用 ,设计 几 个 方案 ; 

D 当 B?=1 时 ,表示 改变 放大 倍数 。 

@ 当 B?=1 时 ,表示 该 字 节 的 7 个 “点 ?之 间 的 距离 按 
某 一 数学 规律 变化 , 即 XS 不 是 一 个 常数 。 

图 当 B?=1 时 ,表示 改变 向 量 造型 的 颜色 。 

四 将 B 与 Bo 一 Be 同等 看 待 ,使 B 代表 第 8 个 点 的 亮 
与 暗 。 
在 程序 5-6 中 ,实际 上 已 经 使 用 了 第 4 个 方案 ,变量 BIT 
就 是 为 此 而 设置 的 。 由 于 程序 5-6 是 用 DATA 语句 提供 数据 ， 
所 以 也 可 以 打破 8 位 二 进 制 数 的 框框 ,再 增加 Bs、. Bu 等 假设 
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的 信息 位 。 不 过 ,在 选择 了 第 4 个 方案 后 ,图 形 数据 就 不 可 以 
在 字 节 对 应 作 图 法 中 被 直接 存 取 了 。 但 在 双 壁 绘图 法 中 , 它 则 
以 更 浓 缩 的 数据 形式 而 占 优势 .以 花边 图 案 图 5-6 为 例 , 先 将 
图 案 以 水 平 8 点 为 一 组 分 开 , 再 用 程序 5-3 取得 图 象 的 十 进 
制 数据 , 删 去 程序 5-6 中 的 390 一 470 句 的 内 容 , 键 入 花边 图 
案 数 据 ; 


400 DATA 96,6,160,5,128,1,70,98 
410 DATA 73,146,69,162,33,132,30,120 


图 5-6 ”作为 图 案 骨 骼 的 花边 纹样 


并 把 120 一 150 句 的 内 容 修改 为 : 

120 N 一 5:REPT 一 14 

130 XB = 16:XS = 16 

140 YB = 16:YS = 16:Y 一 YB 

150 BIT = 8:BYTE =- 2:LINE 一 8 
就 得 到 图 5-7。 有 些 图 形 倘 若 不 是 用 计算 机 去 绘 出 ,和 恶 怕 真 难 
得 之 。 搞 实用 美术 的 工作 者 或 许 会 在 电脑 绘图 中 ,取得 许多 素 
材 。 

双 壁 绘图 法 还 有 一 个 变化 图 象 的 本 领 , 这 个 本 领 特 别 有 
益 于 花边 图 案 的 变化 制作 。 把 程序 5-6 的 250 句 改 为 : 

250 FOR KK 王 BIT TO 0 STEP 一 1 
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图 5-7 双 壁 绘图 法 (二 ) 


其 它 语句 的 修改 与 绘图 5-7 的 修改 内 容 相 同 。 就 会 在 运行 后 ， 
得 到 一 幅 与 图 5-7 不 一 样 的 图 案 , 它 的 显示 格式 与 二 进 制 书 
写 格式 相同 ,也 就 是 B 所 表示 的 “点 ?在 最 左 侧 ,而 Be 所 表示 
的 点 在 最 右 侧 。 也 就 是 说 ,我 们 又 有 了 一 个 更 好 的 方法 来 使 用 
双 壁 绘图 法 :可 以 直接 把 图 形 从 左 到 右 的 8 个 点 直接 视 为 对 
应 于 B? 一 Bu, 不必 经 过 程序 5-3 的 转换 过 程 。 


习 题 


1 写 出 与 图 5-8 的 四 个 图 形 字符 的 显示 格式 相同 的 十 六 进 制 数 。 
2. 用 程序 5-4 的 字 节 对 应 造型 程序 , 画 出 图 5-8 的 四 个 图 形 字符 ， 
要 求 每 两 个 图 形 字符 之 间 有 一 定 的 空隙 。 
3， 编 一 个 程序 ,首先 由 键盘 输入 一 个 汉语 词组 ,然后 将 这 个 词组 输 
出 到 屏幕 的 指定 位 置 ,再 用 一 个 与 程序 5-5 类 似 的 程序 段 读 取 与 打印 出 
这 个 汉语 词组 的 图 形 数据 。 
4 将 图 5-8 的 图 编 成 向 量 造 型 表 , 并 以 这 些 造 型 为 "点 ”, 使 用 程序 
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5-4 中 的 稻 的 字 节 对 应 造型 数据 ,用 程序 5-6 的 双 壁 绘图 法 , 画 出 新 的 螃 
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电脑 绘图 不 仅 在 大 踏步 地 走 进 计 和 
算 机 辅助 教学 (CAI) 与 计算 机 辅助 设 
计 (CAD ) 领域 ,而 且 它 已 经 作为 一 支 
新 军 崛 起 于 艺术 之 林 。 它 主要 靠 运 用 
数学 公式 和 大 量 的 数据 ,通过 种 种 变 
换 手 法 , 绘 出 许多 别开生面 的 图 画 。 计 
算 机 绘图 不 仅 在 实用 美术 领域 内 已 经 
颇 有 建树 ,而 且 在 文艺 美术 领域 里 也 
出 现 了 一 些 脸 史 人 口 的 作品 。 与 电脑 
绘图 的 初步 成 就 相 比 ,本 章 的 内 容 仅 
是 万 重 青山 中 的 几 片 绿叶 ,但 愿 它 能 
给 读者 带 来 一 丝 新 意 。 


一 、 米 字 型 对 称 图 案 


对 称 的 图 案 有 它 稳 重 的 特色 ,但 如 果 图 形 训 无 变化 ,又 会 
造成 呆板 的 气氛 ,这 就 需要 让 图 形 有 一 个 适当 的 变化 ,就 象 音 
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乐 要 有 节奏 一 般 。 米 字 型 图 案 是 一 种 常见 的 图 形 ,在 古今 中 外 
的 许多 建筑 物 与 工艺 品 中 ,都 可 以 发 现 它 们 的 足迹 。 图 6-1 是 
一 个 用 圆 组 成 的 米 字 形 图 案 , 随 着 圆 与 图 象 中 心 之 间 的 距离 
增加 , 圆 的 半径 逐渐 减 小 。 下 面 介 绍 如 何 用 电脑 绘制 这 种 图 
形 。 

在 绘制 参数 方程 的 图 象 时 ,我 们 经 常 要 反复 使 用 某 些 周 
期 函数 的 值 . 如 果 每 次 都 要 进行 函数 运算 ,势必 大 大 降低 运行 
速度 。 这 时 最 好 的 办 法 是 使 用 数组 ,一 次 运算 完毕 后 ,可 以 反 
复 使 用 。 如 果 在 绘图 前 先 建立 数组 ,而 要 建立 的 数组 又 很 大 ， 
就 会 让 使 用 者 处 于 空 等 状态 。 从 心理 学 来 看 ,使 用 者 希望 的 是 
立即 响应 ,所 以 这 也 不 是 一 个 好 办 法 。 程 序 6-1 提供 了 一 个 折 
囊 方 案 : 在 绘制 第 一 个 圆 (一 个 周期 ) 时 ,采用 逐 点 运算 , 逐 点 
绘制 ,并 同步 建立 数组 的 方法 ,这 是 由 170 一 210 句 完成 的 。 
250 一 350 句 是 绘制 八 个 相同 半径 的 圆 的 程序 段 ,270 一 340 句 
的 8 个 HPLOT 语句 分 别 负责 绘 出 其 中 一 个 圆 的 一 个 个 点 。 其 
中 有 XC 或 YC 的 四 句 绘 出 图 形 的 “十 ?字形 部 分 ,另外 四 句 绘 
程序 6-1 

110 XC = 140:YC = 95 

120 X1 = XC:X3 一 XC:Y2 = YC:Y4 一 YC 

130 R= 50:DT = 2:D 一 12 

140 PI 一 ATN (1) / 45 

150 DIM S(360),C(360) 

160 HGR : POKE 一 16302,0 

170 HPLOT XC 一 R,YC 

180 FORI 一 0TO 360STEPDT:T 一 PIx 1 

190 SCD = SIN (CT):C(CD) = COS (T) 

200 X 一 XC 一 Rx COD:Y 一 YC 一 Rx SCD 
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米 字 型 对 称 画 法 


-1 


图 6 


210 HPLOT TOX,Y: NEXT 


220 FORR 一 R 一 10Tol10STEP 一 5 
230 XI1 一 X1 十 D:X3 


240 Y2 


一 X3 一 D 


一 Y4 十 D 


一 Y2 一 D:Y4 


0 TO 360 STEP DT 


250 FOR I 


260  RC 


一 Rx COD:RS 一 了 Rx* SO) 


YC 一 RS 


Y2 一 RS 


270 HPLOT X1 十 RC， 


9 


280 HPLOT X1 十 RC 
290 HPLOT XI1l 


十 RC,Y4 十 RS 


RS 


300 HPLOT X3 一 RC,YC 一 


2 


310 HPLOT X3 一 RC,Y2 一 RS 

320 HPLOT X3 一 RC,Y4 十 RS 

330 HPLOT XC 十 RC,Y2 一 RS 

340 HPLOT XC 十 RC,Y4 十 RS 

350 NEXTI 

360 NEXT R :GET A$ : TEXT ， END 
出 “X? 形 部 分 。 从 220 句 开始 的 外 循环 的 循环 变量 R 的 初 值 
比 第 一 个 绘 出 的 圆 的 半径 小 10, 以 后 逐次 减 小 ,直至 了 R=10。 
这 个 程序 运行 速度 还 不 够 快 的 主要 原因 在 于 ,为 了 使 程序 短 
一 些 , 它 仅 使 用 了 与 程序 2-4 类 似 的 最 简单 的 画 圆 方式 ,而 没 
有 使 用 八 点 递归 法 等 更 好 的 形式 。 


二 、 别 有 风味 的 变异 画 法 


图 6-2A 是 由 正弦 函数 变化 而 来 的 一 只 写意 鸟 , 而 图 6- 
2B 则 是 一 只 凌云 展翅 的 鸟 , 它 的 骨架 是 指数 郴 数 Ae< 的 作 
品 。 对 应 这 二 幅 图 的 程序 都 很 简单 ,它们 的 共同 之 处 是 运用 了 
变异 画 法 。 

对 于 图 6-2A ,我 们 借用 了 物理 学 中 关于 波 的 一 些 理论 来 
实现 变异 ,不 妨 先 看 程序 6-2 : . 
程序 6-2 

110 HGR : HCOLOR 王 3:P 王 0.05:YC 一 90 

120 Al = 40:A2 一 20:A4 一 10:W2 王 2:wW4 一 14 

130 FORI 王 0TO270:X 王 PxI 

140 Y1 王 Al * SIN (X) 

150 Y2 王 A2 * SIN(W2 * X):Y4 一 A4x* SIN(W4 * X) 

160 HPLOTI/ 2,YC 一 Yl1 
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170 HPLOT TOL'YC 一 Y2 一 Y4 一 Yl 
180 NEXT I， END 





图 6-2A 正弦 曲线 的 变异 





图 6-2B 指数 曲线 的 变异 


程序 6-3 
110 D = 20: HOME 
120 Al 一 2.942 * D:A2 一 6.758 x* D 
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130 IF PEEK (49920) 一 76 AND PEEK (49921) 一 75 THEN 
CALL 49920 

135 HGR2 : HCOLOR 王 3 

140 FORT= 王 16Tol170STEP14 

150 YY 一 187 一 INTICAL * EXP( 一 0.127 * T) 十 A2 * EXP 

(一 0.027 * T) 十 0.5) 

160 HPLOT 276 一 T,YTO 276 一 191 十 Y'T 

170 HPLOTT,YTO 187 一 Y',T 十 4 

180 NEXT 

190 VTAB 5: HTAB 2 

200 PRINT“Hovering in the air like an cagle?” 

210 IF PEEK (一 16384) <<128 THEN 210 

220 TEXT ， END 

程序 6-2 首先 给 出 三 个 正弦 波 的 振幅 41、42 与 44, 并 给 
出 了 这 三 个 正弦 波 的 角速度 之 比 为 1: W2 : W4(120 句 ) 。 变 
量 是 基 波 了 1] 的 角速度 。 三 个 正弦 波 码 加 后 的 位 移 是 了 1 十 
72 十 73 ,将 循环 变量 工作 为 时 间 变 量 , 并 以 屏幕 坐标 了 一 YC 
作为 振动 的 平 衔 位 置 ,那么 这 三 个 波 释 加 后 随时 间 变 化 的 坐 
标 为 (L,YC-Y1-Y2-Y4) 。 现 在 再 假设 有 另外 一 个 波 , 它 的 振动 
规律 由 YC-Y1 这 个 式 子 表 达 , 而 在 时 间 的 规律 上 , 它 总 是 等 
于 I/2, 这 样 ,这 个 波 的 坐标 为 (I/2,YC-Y1)。 通 过 循环 ,不 断 
地 在 这 二 个 有 规律 地 变化 的 坐标 点 之 间 用 直线 连接 ,就 得 到 
了 图 6-2A, 这 是 一 种 空间 变异 的 结果 。 

程序 6-3 是 图 6-2B 的 源 程序 。 若 删 去 160,170,190,200 
句 , 并 插入 70 HPLOT T,Y, 就 会 得 到 一 条 指数 曲线 , 它 描 述 了 
一 种 药物 在 血液 中 浓度 的 变化 。 时 间 工 的 变化 ,再 加 上 坐标 
变量 T 与 Y 互 易 位 置 (一 些 常 数 仅 是 为 了 坐 移 平移 、 保 持 图 
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象 的 对 称 ) ,就 是 这 个 程序 变异 的 形式 ,而 对 称 画 法 则 使 整个 
画面 被 协调 为 一 个 整体 在 这 个 画面 中 加 入 一 些 文字 ,将 使 整 
个 画面 兼 有 虚实 的 变化 。 例 如 “中 华 奋 飞 等 。 


三 、 牛 顿 蛇 形 线 与 杉 树 


牛顿 蛇 形 线 的 方程 是 了 = 9, 用 它 可 以 绘 出 蚁 是 起 估 
的 山脉 .要 使 这 些 山 脉 跌宕 多 姿 , 自 然 还 得 经 过 其 它 函数 的 修 
饰 。 程 序 6-4 向 你 介绍 了 一 个 简易 的 画 树 方法 ,被 画 出 的 树 的 
形状 有 点 象 杉 树 和 雪松 (图 6-3)。 这 个 程序 以 牛顿 蛇 形 线 为 
基本 方程 。 





图 6-3 用 牛顿 蛇 形 线 绘制 的 三 棵 树 


程序 中 的 变量 E 对 树冠 宽度 影响 很 大 。 变量 N 也 是 一 个 
控制 树冠 宽度 的 量 ,150 句 采用 随机 数 决定 N 之 值 , 是 为 了 增 
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加 树 形 的 变化 。180 句 中 的 XC/20 一 项 是 为 了 防止 树 形 完全 
对 称 。 树 的 高 度 由 变量 A 的 终 值 AE 决定 (210 句 ),AE 之 值 
由 随机 数 给 定 范围 (140 句 ), 这 样 三 棵 树 的 高 度 就 不 会 相同 。 
130 一 220 句 组 成 的 循环 由 循环 次 数 决定 了 树 的 总 数 ,循环 变 
量 XC 决定 了 树 与 树 之 间 的 距离 。200 句 使 A 的 增 量 S2 不 断 
改变 。 当 增 量 不 是 常数 时 ,不 能 使 用 FORVNEXT 组 织 循环 , 因 
为 在 FORVNEXT 循环 中 ,计算 机 只 在 进入 循环 体 前 计算 一 次 
步 长 之 值 , 而 在 进入 循环 体 后 ,不 再 去 计算 步 长 .所 以 ,必须 用 
IF…THEN 语句 去 组 织 这 类 情况 的 循环 。 


程序 6-4 
100 
110 
120 
130 
140 
150 
160 
170 
180 


190 
200 
210 
220 


REM 树 

下 一 5:ST 一 0.8:YC 王 160 

TEXT : HOME : HGR : HCOLOR 王 3 

FOR XC 一 60 TO 220 STEP 80 

A 一 80:AE = 王 120 十 30 * RND (1) 

X 一 0IN 一 5 十 5x* RND(1):XP 一 N xx X 
YAx2x 上 X/(I 二 Xx*X):NX 一 N * 
HPLOT XC 十 NX,YC 一 YTOXC 十 XP,YC 一 YP 
HPLOT XC 一 NX 十 XC/20,YC 一 YTOXC 一 XP,YC 一 
PR 

XP 一 X:YP 王 Y:X 一 X 十 ST:IFEX<ETHEN 160 
S2 一 7 十 5* RND(l) 

A 一 A 十 S2:IFA<AETHEN 150 

NEXT XC: GET A$ : TEXT : END 


四 、 计 算 机 与 欧普 艺术 





欧普 艺术 即 光 效 应 艺术 是 本 世纪 60 年 代 发 展 起 来 的 一 
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个 活跃 的 艺术 流派 。 欧 普 艺 术 以 简单 的 几何 造型 .数学 曲线 ， 
通过 组 合 渐 变 、 旋 转 等 形式 ,绘制 出 孩 人 眼目 的 图 画 。 欧 普 艺 
术 以 独特 的 奇异 的 视觉 效果 ,使 静止 的 线条 表现 出 流动 的 美 ， 
令 人 体会 到 一 种 别致 的 韵味 .由 于 它 具 有 独特 的 表现 手法 ,而 
被 运用 于 现代 的 印刷 装帧 、. 建 筑 艺 术 、 纺 织 印染 .时 装 设 计 等 
方面 。 在 80 年 代 初 ,由 于 电子 计算 机 图 形 电视 节目 制作 系统 
问世 ,欧普 艺术 更 是 倍 受 青睐 , 争 妍 斗 艳 于 银屏 之 上 ,为 许多 
节目 增添 了 奇幻 、 绚 丽 的 色彩 和 活泼 的 气氛 。 图 6-4 就 是 由 程 
序 6-5 绘 出 的 一 幅 属于 欧普 艺术 的 图 画 。 

程序 6-5 的 3000 一 3010 句 的 子 程序 的 任务 是 计算 出 正 
多 边 形 的 各 个 顶点 (在 图 6-4 中 是 一 个 个 正方 形 ) 的 屏幕 坐标 
(CX(GD,Y(GD), 供 2020 句 调用 。 每 取得 一 次 坐标 后 ,就 由 2030 
A2110 | 2 


例 变化 后 的 顶点 坐标 ,再 画 出 一 个 已 经 缩小 了 一 些 , 并 旋转 了 
一 个 角度 的 正方 形 , 直 至 洁 近 外 框 的 几何 中 心 ， 。 其 中 程序 
程序 6-5 


100 REM 光学 艺术 
110 SB 王 10:SE 一 3.2:DS 一 0.9 
120 N 王 4:N2 一 4:R 一 36 
130 GOSUB 1000 
140 ST 一 SQR (2) * R:C 一 0 
150 FOR YC 一 RTO191 一 RSTEPST:XB 一 有 R 
160 T 一 P/8 
170 FOR XC 一 XB TO 279 一 R STEP ST 
180 GOSUB 2000 
190 NEXT XC:IF C THEN TF 王 NOT TF 
200 NEXT YC 
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210 GET A$ : TEXT : END 


1000 
1010 
1020 
2000 
2010 
2020 
2030 
2040 
2050 


2060 
2070 
2080 
2090 
2100 
2110 
2120 
3000 


3010 


HGR : POKE 一 16302,0: HCOLOR= 3 
P 一 8x* ATN (1):DT 王 P/N:TS 王 P/N2 

RETURN 

IF TF THEN L1 王 1:L2 = N:L3 一 1 

IF NOT TF THEN L1 王 N:L2 = 1:L3 = 一 1 

GOSUB 3000 

S 一 SB 

SS 一 DS * S 

HPLOT XCN),YCN): FORK = 1 TON: HPLOT TOX(CK)， 
Y(K) : NEXT K 

FORI 一 1TON 

K 一 I 十 1:IFK 王 N 十 1THENK 一 1 

X(GD) 一 X(GD 十 (XCGIK) 一 XGD) /S 

Y(D 一 Y(GD) 十 (YGK) 一 YGD) /S 

NEXTI 

IF S 之 SE THEN 2040 

TF = NOT TF: RETURN 

FOR I 一 LITOL2STEPL3:X(D) 一 XC 一 R x* COS (T): 
YGD) = YC 一 Rx SIN(T):T 王 T 十 DT:, NEXT 
RETURN 


2050 句 的 任务 是 绘 出 由 顶点 (Xi,Yi),(Xa,Yz)，…，(CXny,Yn) 
连接 的 一 个 正 多 边 形 。2060 一 2100 句 用 解析 几何 中 按 比 例 分 
割 线段 的 方法 ,在 点 (Xi,YD 与 点 (Xx,Yx) 的 连 线 上 ,取得 新 的 
顶点 坐标 (Xi,Y) ,比例 系数 的 变量 是 S。 程 序 段 2000 一 3010 
已 被 写成 一 个 通用 的 格式 , 供 本 章 下 面 的 几 个 程序 共同 使 用 。 
每 个 基本 图 形 的 朴 密 ,中 心 空洞 的 大 小 ,由 比例 系数 的 初 值 
SB 与 终 值 SE ,及 变 比 参数 DS 共同 决定 。 变 量 TF 仍然 是 一 个 
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二 





形 的 正方 形 逐 个 按 顺 时 针 方向 旋转 ; 当 TF 为 假 时 , 则 按 逆 时 


开关 变量 , 它 被 用 来 控制 旋转 的 方向 , 当 TF 为 真 时 ,基本 图 
针 方 向 旋转 。 


三 个 参 


这 是 通过 2000 或 2010 句 设 定 Li 、Lz、Ls 


190 句 中 的 


组 图 形 的 对 称 方式 的 变量 。 如 果 先 
0 改 为 C 


,修改 其 中 的 


些 变异 


重 循环 通过 平移 基本 图 形 


的 几何 中 心 CXC,YC) 决 定 基本 图 形 的 组 合 方式 。 


变量 C 是 一 个 控制 上 下 


最 后 ,让 我 们 再 将 程序 6-5 进行 一 


140.160、200 句 ; 


主 程序 中 的 150 一 200 名 的 
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1, 将 1000 句 的 HGR 改 成 HGR2, 然 后 再 执行 一 次 程序 6-5， 
最 后 用 第 一 章 第 五 节 所 述 的 软 开 关 方 式 轮换 显示 这 二 个 页 


在 高 分 辩 第 一 页 执行 程序 6-5, 再 将 140 句 的 C 
面 ,将 会 看 到 有 趣 的 变动 。 


数 来 实现 的 。 


140 XS 一 2xR:YS=R:ic=1 

160 IF L/2 <> INT (L/2) THEN XB 一 XS 

200 工 一 L 十 1 : NEXT YC 

这 样 , 基 本 图 形 被 转 了 45" ,并且 交错 排列 ,在 对 称 中 又 
有 不 对 称 。 每 个 局 部 的 不 对 称 因素 ,又 是 另 一 部 分 的 对 称 因 
素 , 图 象 将 变 得 更 富有 变化 ,读者 自己 可 试 一 下 。 


五 、 电 脑 画 家 


要 有 独创 ,要 有 新 见 , 就 不 能 没有 想象 力 。 想 象 力 是 艺术 
的 生命 ,也 是 科学 技术 的 重要 源泉 。 学 习 计 算 机 知识 ,学 习 电 
脑 绘图 的 过 程 , 也 应 该 是 发 挥 自己 的 想象 力 , 培 养 自己 的 创造 
力 的 过 程 。 以 程序 6-5 为 例 , 经 过 几 次 变化 ,似乎 已 经 是 路 到 
尽 处 ,水 到 源头 ,其 实 还 有 许多 可 以 探索 的 内 容 。 让 我 们 仍然 
使 用 程序 6-5 中 从 1000 一 3000 句 的 3 个 子 程序 ,将 变化 的 视 
角 转 向 程序 6-5 中 的 3 个 变量 N\N2、SE, 改 用 INPUT 语句 赋 
值 。 在 运行 被 修改 的 程序 (程序 6-6) 时 ,只 要 给 N\N2、SE 赋 
程序 6-6 

110 SB 王 10:DS 一 0.9 

120 HOME :R 一 45 

130 _ INPUT"“N 一 ?(2<N<11) ”N 

135 IFEN<30ORN >>10THEN 130 

140 INPUT"“N2 王 ?(2<N2<17)”N2 

145 IFEN2<30ORN2>>16THEN 140 

150 INPUT“SE 一 ? (0<SE 一 10)”;SE 

155 IFESE<<0ORSE 10THEN 150 

160 GOSUB 1000:T 王 P/4 
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170 
175 
180 
190 
200 


FOR M 一 1 TO N2 

XC 一 140 一 R* COS (T):YC 一 96 一 Rx SINCT) 
GOSUB 2000 :T =T 十 TS : NEXT M 

GET A$: IF A$ < >>CHR 和 $ (32) THEN TEXT : RUN 
TEXT : END 





图 6-5 N=7,N2 一 7,SE 一 7 


予 不 同 的 值 , 就 可 以 得 到 许多 新 异 有 趣 的 图 案 。 例 如 : 
N 一 8，N2 一 16，SE 一 10 
N 一 5，N2 一 5，SE 一 7 
N 一 3，N2 一 8，SE 一 5 
图 6-5 就 是 程序 6-6 运行 的 一 个 结果 。 
在 程序 6-6 中 ,第 175 句 中 的 半径 R 是 绘图 中 心 CXC， 
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YC) 绕 轴 ( 屏 幕 中 心 (140,96)) 公 转 的 半径 ;而 在 程序 6-5 第 
3000 句 中 ,半径 R 是 以 (XC,YC) 为 绘图 中 心 的 基本 图 形 的 外 
接 圆 的 半径 。 由 于 程序 6-6 在 这 两 处 使 用 同一 变量 , 才 使 每 一 
个 基本 图 形 的 外 接 圆 的 轨迹 都 通过 屏幕 中 心 (140,96) 。 倘 知 
把 程序 6-6 中 的 175 句 中 的 R 改 为 Ri, 使 Ri 夫 R ,并 修改 相应 
语句 : 
110 SB 一 10:DS 一 0.8 
120 HOME ;R 一 25:R1l 一 65 
XC 一 140 -R1 x* COS (T):YC 一 96-R1 x SIN 
(CT) 
图 形 的 变化 将 更 趋 丰 富 ,请 读者 自己 实践 一 下 。 
上 一 节 与 本 节 前 面 所 绘 出 的 图 形 都 是 正 N 边 形 组 成 的 
图 案 ,为 何不 能 让 计算 机 不 受 此 约束 ,更 加 随意 发 挥 它 自己 的 
才气 呢 ? 让 我 们 按 这 条 思路 ,再 去 修改 一 下 程序 6-5。 首 先 由 
计算 机 用 随机 函数 任意 给 出 N 个 点 的 坐标 ,这 可 通过 修改 程 
序 6-5 的 3000 句 去 实现 : 
3000 FORI=LITOL2STEPL3:XG) 一 279 * RND (3):Y(I) 
一 191 * RND (3) :NEXT 
3010 RETURN 
再 输入 主 程 序 ， 
程序 6-7 
110 SB 一 10:SE 一 2:DS 王 0.9 
120 HOME 
130 PRINTIN 一?(3<N< 10) 
140 GETN 和 :IN 王 ASCCON 和 $) 一 48 
150 IFN<40ORN>>9THEN 120 
160 HGR2 : HCOLOR 一 3 
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170 GOSUB 2000 

180 GET A$:IFA 和 4 =NTHEN 170 
190 了 FEA$ < > 中 "THEN RUN 

200 TEXT : END 





图 6-6 计算 机 自己 绘 出 的 图 案 


程序 6-7 仍然 使 用 程序 6-5 中 的 2000 一 2120 句 的 子 程 
序 。 现 在 电脑 变 得 灵活 多 了 ,当选 定 N 之 值 后 , 它 就 画 出 一 个 
事先 不 能 预知 的 图 案 。 它 似乎 象 一 个 水 平 极 不 稳定 而 又 不 厌 
其 硕 的 画家 ,只 要 你 不 按 下 “E?” 键 (190 句 ), 它 就 不 断 地 一 幅 
接 二 幅 地 画 着 。 如 果 在 绘 完 一 幅 画 后 , 它 接 到 “N?” 键 被 按 下 的 
信和 号 (180 句 ), 它 就 不 去 清除 屏幕 ,而 再 画 一 个 图 案 于 原 有 的 
画面 之 上 。 图 6-6 就 是 程序 6-7 运行 后 的 二 个 结果 。 

要 使 电脑 画家 更 能 干 , 画 出 更 多 独 具 一 格 的 图 画 ,还 需要 
继续 发 挥 我 们 的 想象 力 ,不 断 寻求 新 的 方法 。 
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本 章 以 中 文字 体 的 美化 为 典型 实 
例 , 叙 述 了 利用 计算 机 独 有 的 绘图 方 
式 进行 字体 美化 的 途径 与 显示 技巧 。 
所 介绍 的 方法 不 仅 适 避 于 中 文字 体 ， 
也 适用 于 西 文字 体 。 这 些 方法 以 便于 
BASIC 程序 作者 的 使 用 与 发 挥 为 准 。 
由 于 中 文 与 图 形 所 需要 的 内 存 显示 单 
元 要 远 远 大 于 西 文 , 所 以 显示 速度 就 
成 为 一 个 非常 突出 的 问题 。 为 了 加 快 
运行 速度 ,本 章 在 图 形 化 汉字 部 分 介 
绍 了 几 个 用 机 器 语言 编制 的 小 程序 。 
对 于 BASIC 程序 作者 ,不 必 去 关心 其 
中 的 内 容 , 只 要 把 它们 装 入 指 定 地 址 ， 
而 把 本 章 说 到 的 命令 视 为 一 个 新 的 
BASIC 命令 就 行 了 。 
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一 、 字 符 串 格式 翻译 器 


我 们 知道 ,BASIC 解释 程序 的 作用 就 是 将 BASIC 源 程序 
的 命令 翻译 成 计算 机 能 理解 的 一 长 串 机 器 指令 。 它 对 每 一 个 
BASIC 命令 ,都 采用 边 解释 , 边 执行 的 方法 。 正 是 由 于 BASIC 
解释 程序 的 工作 , 才 使 许多 复杂 的 浮 点 运算 过 程 、 绘 图 过 程 能 
以 简单 的 BASIC 命令 去 完成 。 本 节 就 是 仿照 BASIC 解释 程序 
的 方法 ,编制 了 一 个 字符 串 格 式 解 释 程 序 , 它 逐一 取得 一 个 字 
符 串 中 的 各 个 字符 ,并 根据 事先 的 约定 ,将 字符 逐个 转换 成 给 
图 信息 ,并 执行 相应 的 过 程 。 字 符 串 所 代表 的 实际 内 容 , 完 全 
由 字符 串 格式 解释 程序 决定 ,只 要 修改 解释 程序 ,就 可 以 得 到 
完全 不 同 的 结果 。 本 节 使 用 字符 串 格式 翻译 器 绘制 简单 的 空 
心 字体 , 它 只 使 用 了 少量 字符 。 

根据 汉字 的 特点 ,我 们 可 以 把 汉字 分 解 为 若干 个 部 分 ,每 
一 部 分 可 以 用 一 个 ASC 码 作为 代号 。 分 解 的 方式 要 根据 重新 
组 合 是 否 容易 ,执行 速度 是 否 较 快 ,程序 修改 是 否 简便 而 决 
定 。 程 序 7-1 是 以 固化 汉字 的 仿宋 字体 为 蓝本 ,以 点 为 基本 单 
元 ,根据 点 与 点 四 周 的 关系 导出 一 些 基 本 造型 ,每 个 造型 都 由 
7X7 的 点 阵 组 成 。 表 7-1 列 出 了 每 个 造型 ,以 及 每 个 造型 的 
ASC 代码 。 

表 7-1 是 按 以 下 几 点 选取 ASC 码 的 : 

1. 形似 。 如 A 代表 造型 “和 人”,U 代表 造型 “，”,F 代表 造 
型 “ 厂 ”。 

2 联想。 例如 G 在 EF 之 后 ,所 以 就 用 G 代表 造型 “”， 
它 与 E 所 代表 的 造形 对 称 。 再 如 问号 与 除 号 是 同一 键 的 上 下 
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档 , 由 于 用 除 号 代表 造型 “/”, 所 以 就 用 问号 来 表示 造型 兴 ”。 
由 于 有 些 键盘 没有 下 划 线 ,因此 就 任 T 字 符 的 上 面 有 一 横 ， 
就 让 它 与 减 号 分 别 充当 上 划 线 与 下 划 线 的 代码 。 


表 7-1 字符 与 翻译 器 输出 的 造型 对 照 表 


有 十 帮 吏 ; 
1 
? 






翻译 码 | 造型 





4 







0 
/( 或 0)| 17 | 
| RE 1l8 | 
[Ta 














11 | 


3. 尽量 用 代码 值 连 续 的 字符 。 比 如 用 字母 C 与 D 表示 造 
型 [与 “]”, 而 不 用 中 括号 ,就 是 出 于 这 种 考虑 。 

为 了 防止 在 编辑 修改 过 程 中 ,由 于 字符 串 中 出 现 多 余 的 
空格 而 造成 错误 ,所 以 字符 串 格 式 翻译 器 (程序 7-1) 首 先 截 
取 空 格 符 (200 句 ) ,将 它 作为 无 用 字符 处 理 。 这 个 字符 串 格 式 
翻译 器 将 1 一 9 这 9 个 数字 字符 作为 图 形 空格 字符 ,它们 分 别 
对 应 于 1 一 9 个 图 形 空格 ,每 个 图 形 空格 也 是 7X7 的 点 阵 。 字 
符 串 格式 翻译 器 起 于 程序 7-1 的 180 句 ,终止 于 程序 7-1 的 
270 句 。 程 序 在 开始 就 设 定 了 向 量 造型 序号 的 最 大 值 MAX， 
如 果 一 个 字符 经 过 翻译 后 的 编码 之 值 在 1 一 MAX 之 间 , 字 串 
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翻译 器 就 去 绘制 对 应 的 造型 。 变 量 NUM 是 为 分 析 数 字 字 符 
而 设 的 ,如 果 是 数字 字符 (0<MUM<10) ,格式 字符 串 翻译 器 
就 重新 设 定 水 平 增 量 的 倍数 N(240 句 ), 而 其 它 不 属于 表 7-1 
中 的 字符 , 则 一 律 被 简单 地 解释 为 一 个 图 形 空 格 符 。180 一 260 
句 完 成 一 个 字符 串 的 翻译 与 解释 工作 。 如 果 一 个 字符 串 已 经 
取 尽 ,格式 字符 串 翻译 器 就 认为 一 行 已 经 结束 ,就 给 纵 坐 标 Y 
一 个 增 量 YS(270 句 ), 直 至 最 后 一 行 。 表 7-2 是 字符 串 格式 翻 
译 器 所 用 的 造型 表 。 
表 ?7-2 程序 7-1 所 用 造型 表 


7000 一 15 00 2C 00 37 00 42 00 
7008 一 4F 00 5A 00 64 00 6E 00 
7010 一 76 00 80 00 87 00 91 00 
7018 一 96 00 9E 00 A5 00 Bl 00 
7020 一 BE 00 C6 00 D0 00 D6 00 
7028 一 DE 00 E3 00 49 12 17 17 
7030 一 17 4D 49 1lC 1lC 04 00 15 
7038 一 15 15 15 15 15 3F 3F 3F 
7040 一 04 00 2D 2D 2D DE DB 33 
7048 一 36 36 2D 2D 2D 04 00 2D 
7050 一 2D 2D 36 36 36 3F 3F 3F 
7058 一 04 00 2D 2D 2D 96 92 3F 
7060 一 3F 3F 04 00 2D 2D 2D DE 
7068 一 DB 33 36 36 05 00 2D 2D 
7070 一 2D 36 36 36 07 00 36 36 
7078 一 36 4D 49 24 24 24 07 00 
7080 一 49 49 36 36 36 07 00 49 
7088 一 49 36 36 36 3F 3F 3F 04 
7090 一 00 36 36 36 05 00 36 36 
7098 一 36 2D 2D 2D 04 00 92 92 
70A0 一 2D 2D 2D 04 00 2D 2D 2D 
70A8 一 36 36 36 DF DB 24 24 2C 
70B0 一 00 2D 2D 2D 36 36 36 3F 
70B8 一 3F 3F 24 24 2C 00 15 195 
70C0 一 15 15 15 15 07 00 49 49 
70C8 一 17 17 17 17 17 17 04 00 
70D0 一 OOE 76 AE AD 25 00 49 49 
70D8 一 IE F6 F6 BF 27 00 2D 2D 
70E0 一 2D 06 00 36 36 36 2D 2D 
70E8 一 2D 24 24 24 07 00 00 00 
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你 可 以 先 从 监控 状态 下 输入 表 7-2 的 造型 表 ,然后 回 到 
BASIC 命令 状态 ,再 用 DoS 命令 存盘 ， 


程序 7-1 


100 


110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 


230 


240 
250 
260 
270 
280 
290 
300 


310 


REM 字符 串 格式 翻译 器 


MAX 一 21 

LINE 一 15: DIM A$ (LINE) 

XB 一 40:XS 一 6 

YB 一 25:YS 一 6:Y 一 YB 

FORI= 1TOLINE: READ A$(D: NEXT 

GOSUB 290:L 一 1 

FORJ= 1TOLINE:X 一 XB 

FORI 王 1TOLEN (A$(J)) 

B$ 王 MID$4 (A$(J),I'L) 

IFB$ 一 CHR 和 $ (32) THEN 260 

N 一 ASC (B$) 一 64:NUM 一 N 十 16 

N 王 N 十 8* (B$ 一" 一 人) 十 32 * (B$ 一 "一 人 十 34 
x* (B$ 一” 十 17 * (B$ 一 7"?7) 

IF N >>0 AND N 二 = MAX THEN DRAW N AT X,Y: 
DRAWN ATX 十 L,Y 

N 一 1: IF NUM >1ANDNUM < 10THEN N 一 NUM 

X 一 X 十 N x* XS 


NEXT 

YY 一 YY 十 YS: NEXT 
END 

HGR : HCOLOR 王 3 


IF PEEK (233) < > 112 THEN PRINT CHR $ 〈4)3; 吧 
LOAD ST.K,A$7000" 
POKE 232,0: POKE 233 ,112 
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320 SCALE 王 1: ROT 一 0 
330 RETURN 


1000 
1010 
1020 
1030 
1040 
1050 
1060 
1070 
1080 
1090 


1100、 


1110 
1120 
1130 
1140 
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DATA "5N3N88N7 

DATA "5H3H97H1F?" 

DATA '"C 一 一 一 一 1 一 一 一 1 一 一 一 一 D56H1? 一 D" 
DATA "5H3H88H5A7" 

DATA "5U3U9C 一 一 一 一 一 一 1 一 一 一 一 一 一 B/ 
DATA "74A95H 

DATA "2C 一 一 一 一 一 一 一 一 1B57C1D 

DATA "83U47FD1iH1CG" 

DATA "9CD57H2H2H" 

DATA "7CD76FJ2H2LG" 

DATA "4/TD95//3H3??7 

DATA "3/1/87H4H4H" 

DATA "2/1/55N4CJ4H4LG7 

DATA "1I1I91/I2CD6H5LDY" 

DATA "2? 一 /55UY 











图 7-1 用 格式 字符 串 书 写 的 空心 字体 


] BSAVE ST.K,，AV$7000,L$EEr/ 

程序 7-1 中 的 变量 XB 决定 图 形 的 左 端点 ,YB 决定 图 形 
的 顶部 高 度 ,XS 与 YS 分 别 是 水 平 增 量 与 纵向 增 量 。 程 序 中 
的 220 句 利 用 逻辑 运算 ,将 字符 “一 ”“ 一 ”“/ 与 “? 的 代码 
分 别 置换 成 字母 E.M`P 与 Q 的 代码 值 ,如 果 不 用 这 种 运算 方 
式 , 就 需要 用 四 句 正 …THEN… 语 句 来 实现 转换 。220 句 的 四 
个 括号 内 各 自 包含 一 个 逻辑 运算 式 , 只 有 当 逻 辑 运 算 的 结果 
为 真 时 ,括号 内 的 值 才 是 1 ,否则 就 是 0。 图 7-1 就 是 程序 7-1 
的 运行 结果 ,而 程序 7-1 的 1000 一 1140 句 的 15 个 字符 串 数 
据 , 就 是 图 7-1 中 两 个 空心 字体 的 原始 格式 数据 。 只 要 改变 字 
符 串 数据 ,就 可 以 写 出 其 它 空心 字 。 


二 、 用 图 案 组 成 汉字 


在 第 五 章 中 ,我们 介绍 了 双 壁 绘图 法 ,用 这 种 方法 来 写 出 
美术 化 的 汉字 ,显然 是 很 有 价值 的 .这 种 用 图 案 组 成 的 汉字 可 
以 用 于 装 潢 .印刷 、 商 业 广告 。 由 于 描述 一 个 汉字 所 用 的 点 阵 
分 布 要 使 用 许多 个 字 节 ,如 果 完 全 由 BASIC 语句 来 分 析 每 个 
字 节 的 各 个 二 进 制 信息 位 ,然后 再 决定 是 否 绘图 , 那 速度 实在 
太 慢 .因此 作者 编 了 一 小 段 机 器 语言 程序 ,由 它 来 分 析 一 个 字 
节 的 各 个 信息 位 ,并 决定 是 否 绘图 。 表 7-3 就 是 这 个 机 器 语言 
的 程序 清单 。 

表 7-3 &DRAWNATX,Y 的 机 器 语言 程序 
1E00 一 C9 94 D0 40 20 Bl 00 20 


1E08 一 2D FE7 A2 07 86 4B 46 02 
1E10 一 90 1l]B A5 1lA 48 A5 1lB 48 
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1]El18 一 A5 E2 A6 E0O0 A4 EL 20 17 
1E20 一 F4 A5 FE9 20 05 F6 68 85 
1]E28 一 1l]B 68 85 1lA 18 F0 14 A5 
1E30 一 E0 65 01 90 06 E6 El C9 
1E38 一 18 B0 59 85 E0 C6 4B Ab 
1E40 一 4B D0 CB 60 


如 果 你 使 用 磁盘 操作 系统 ,就 用 DOS 命令 存盘 : 

] BSAVE DRAW.&COM,A 和 $1E00,L$44x/ 

这 个 机 器 语言 程序 通过 BASIC 的 & 命令 进入 , 它 的 格式 
几乎 与 BASIC 的 DRAW 语句 相同 

行 号 区 DRAWNATX,Y 
其 中 N,X,Y 三 个 参数 的 使 用 方法 也 与 DRAW 语句 相同 , 进 
入 时 的 坐标 (X,Y) 相 当 于 所 要 绘制 的 字 节 的 起 始 绘图 点 。 程 
序 也 可 以 浮动 存放 到 你 指定 的 其 它 位 置 。 在 第 一 次 执行 前 , 必 
须 把 程序 存放 的 实际 起 始 地 址 的 十 六 进 制 值 的 低 二 位 存 入 
$3F6(1014) 单 元 ,高 二 位 存 入 $ 3F7(1015) 单 元 ,如 程序 7-2 
的 270 句 。 在 第 一 次 绘图 前 ,必须 将 双 壁 绘图 法 中 所 说 的 
“点 ?与 “点 ?之 间 的 距离 XS 之 值 存 入 零 页 的 $1 单元 (140 
句 ), 供 机 器 语言 程序 使 用 。 

在 每 次 使 用 & DRAW N ATX,Y 命 令 之 前 ,都 要 先 
把 所 要 绘制 的 字 节 的 值 存 入 零 页 的 $2 单元 (170 句 的 POKE 
语句 )。 表 7-3 中 $$ 1E0B 单元 中 存放 的 值 07, 就 是 双 壁 绘图 法 
中 讲述 的 每 个 字 节 的 有 效 比特 数 , 在 第 五 章 第 五 节 的 程序 5- 
6 中 ,我 们 是 用 BASIC 变量 BIT 来 描述 的 。 现 在 被 设 定 为 7, 所 
以 只 有 低 七 位 有 效 。 如 果 要 使 B 也 作为 相同 的 图 形 点 阵 描 述 
单元 ,可 以 将 $ 1E0B 中 的 值 改 为 8。 
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程序 7-2 要 用 到 二 个 造型 ,造型 表 的 起 始 地 址 仍然 选用 
$7000, 表 7-4 是 造型 表 。 


表 ?7-4 程序 7-2 所 用 的 造型 表 
7000 一 02 00 06 00 49 00 1B 24 
7008 一 2D 4D 2D 35 36 3F 27 3C 
7010 一 ]E Il]E IlE ]lE 36 2E 2D 4D 
7018 一 2D 24 1lC 38 3F 17 2D F5 
7020 一 3F BEF 2D 2D 00 21 3C 3F 
7028 一 36 B6 32 2E 6D 29 2D 3C 
7030 一 3F 3F 28 2D IDD FC 3B 3F 
7038 一 47 2B 2D DC 2B 2D 08 1C 
7040 一 0 28 35 F6 73 06 00 


也 用 DOS 命令 将 造型 表 存 入 磁盘 : 

]BSAVE ST.SHAPE.C9,A$7000,L$47 wu 

图 7-2 就 是 程序 7-2 使 用 这 二 个 造型 画 出 的 “电脑 ?两 个 
字 。 由 于 所 使 用 的 这 二 个 造型 是 相互 对 称 的 ,所 以 就 使 字体 的 
构图 不 单调 ,变化 有 序 ; 而 每 个 造型 本 身 又 采用 了 不 对 称 结 
构 , 才 产生 了 这 种 曲折 相 接 的 整体 效果 。 

由 于 使 用 了 这 段 机 器 语言 程序 ,使 执行 速度 快 了 许多 倍 ， 
而 BASIC 程序 也 变 得 简易 了 。 

如 果 机 器 语言 程序 ( 表 7-3) 与 造型 表 已 经 在 内 存 中 , 可 
以 删 去 250.260 句 。 程 序 7-2 由 130 句 先 设 定 水 平 字 节 数 正 
与 行 数 本 ,然后 由 240 句 的 子 程序 读 入 字 节 对 应 造型 表 的 数 
据 (320 一 470 句 ), 最 后 由 一 个 两 重 循环 将 数据 逐个 输入 零 页 
的 $2 单元 ,由 190 句 去 执行 机 器 语言 程序 。 如 果 机 器 语言 
序 中 的 有 效 比特 数 被 改 为 8, 那么 150 句 中 的 变量 BIT 的 值 
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也 必须 等 于 8, 因 为 它 会 影响 水 平 增 量 (200 句 ) 。 
程序 7-2 
110 DIM D(5,16) 
120 GOSUB 250 
130 下 =5:JE 一 16:GOSUB 240 
140 XB 一 10:XS 王 9: POKE 1,XS 
150 YY 一 10:YS 一 9:BIT 一 7 
160 FORJ= 1To 正 :X 一 XB 
170 FORI 王 1TOIE:POKE 2,DG,J) 
180 N 一 1 十 TF:TEF 王 NOTTF 
190 区 DRAWN ATX,Y 
200 X 一 X 十 BIT x* XS 
210 NEXT 
220 YY 一 Y 十 YS: NEXTIJ 
230 END 
240 FORJ 王 1ToJE:FORI=1TOoOIE:,READD(G,J): NEXT 
NEXT : RETURN 
250 PRINT CHR $ (4);"BLOAD DRAW.&COM,A 和 $1E00" 
260 PRINT CHR $ 〈4);"BLOADST. SHA PE.C9,A 和 7000" 
270 POKE 1013,76: POKE 1014,0: POKE 1015,30 
280 POKE 232,0: POKE 233,112 
290 HGR : POKE - 16302,0: HCOLOR= 3 
300 SCALE= 1: ROT= 0 
310 RETURN 
320 DATA 64,0,0,8,0 
330 DATA 64,0,120,16,0 
340 DATA 64,0,72,0,0 
350 DATA 64,16,72,127,1 
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360 DATA 126,63,72,0,0 
370 DATA 66,16,120,2,1 
380 DATA 66,16,72,70,1 
390 DATA 126,31,72,42，,1 
400 DATA 66,16,72,42，,1 
410 DATA 66,16,120,18,1 
420 DATA 126,31,72,42，,1 
430 DATA 66,16,72,70,1 
440 DATA 64,64,72,2，,1 

450 DATA 64,64,72,2，,1 

460 DATA 64,64,72,126 ,1 
470 DATA 0,127,100,2，,1 


ESNN 


思 





只 Q 

是 
殉国 
图 7-2 ” 双 壁 绘图 法 用 于 中 文字 体 的 图 案 化 


程序 用 变量 TF 作为 双向 开关 ,用 来 选择 造型 1 与 造型 2(180 
句 ) 。 
还 有 一 点 需要 说 明 ,在 执行 机 器 语言 程序 的 过 程 中 ,程序 
没有 去 改变 放大 倍数 SCALE .旋转 参数 ROT 与 造型 的 序号 N 
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的 值 。 

假使 你 想 用 XDRAW 方式 绘制 汉字 , 那 只 要 把 本 节 所 用 
的 机 器 语言 的 $1E01 单元 内 之 值 改 为 十 六 进 制 数 $95, 把 
$ 1E24 单元 内 之 值 改 为 $61, 并 把 & DRAWN ATX,Y 相应 
地 改 为 &XDRAW N AT X,Y 就 行 了 。 


三 、 让 字体 倾斜 的 方法 


在 美术 字 中 ,有 一 种 斜 方 体 , 它 是 将 原来 直立 的 正方 体 或 
长 方 体 美 术 字 向 一 侧 倾斜 ,而 产生 的 一 种 变 体 。 在 这 一 节 中 ， 
我 们 介绍 两 种 产生 斜体 字 的 方法 。 这 一 节 仍 然 要 使 用 上 一 节 
中 表 7-3 的 那个 机 器 语言 程序 ,请 你 先 将 它 装 入 内 存 的 
$ 1E00 处 ,然后 再 进入 监控 ,输入 表 7-5 的 内 容 , 以 便 进 一 步 
加 快 执行 速度 。 

表 7-5 & READ 的 机 器 语言 程序 
1E44 一 C9 87 D0 0c 


1]E48 一 20 Bl 00 20 E2 DB 20 FB 
1E50 一 E6 86 02 60 EA EA 60 


再 用 DOS 命令 将 这 两 段 机 器 语言 程序 存盘 : 

]BSAVE DRAW.&COM,A$1E00,L$5Fu/ 

表 7-5 的 机 器 语言 程序 功能 是 首先 从 DATA 语句 中 读 取 
一 个 数据 ,然后 将 这 个 数据 存放 到 零 页 的 $ 2 单元 。 它 在 BA- 
SIC 程序 中 的 格式 是 : 

行 号 & READ 数值 变量 名 

程序 7-3 首先 从 5000 一 5020 名 的 DATA 语句 中 读 入 造 
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型 表 ,造型 表 的 起 始 地 址 由 变量 S 指定 .6000 一 6150 的 DATA 
语句 是 汉字 “唐诗 ?两 个 字 的 字 节 对 应 造型 表 的 数据 .程序 


程序 7-3 
100 
110 
120 
130 
140 
150 
160 
170 
2000 
2010 
2020 
2030 
2040 
2050 
3000 
3010 
3020 
4000 


4010 
4020 
4030 
4040 
4050 
5000 


REM 字体 的 倾斜 
S 一 7*16x* 256:E 一 S 十 2 * 256: GOSUB 3000 
GOSUB 4000 
XB 一 34:XS 一 8: POKE 1,XS 
Y=2:YS=10IN 王 1 
BIT 一 7:BYTE 一 5:LINE = 16:ST= 1 
HCOLOR= 3: GOSUB 2000 
END 

FORJ 一 1TOLINE:XB 一 XB 一 ST:X 一 XB 
FOR I = 1 TO BYTE 

& READ D:& DRAWNATX,Y 

一 X 十 BIT x* XS:, NEXTI 

YY 一 Y 十 YS:NEXTIJ 

RETURN 

FOR I 一 STOE: READX:IFEX<0THEN 3020 
POKE I,X: NEXT 

RETURN 

IF PEEK (1050) < > 30 THEN PRINT CHR $ (4); 
"BLOAD DRAW .&COM,A$1E00" 

POKE 1013,76: POKE 1014,0: POKE 1015,30 

POKE 232,0: POKE 233,112 

HGR :, POKE 一 16302,0 

SCALE= 1: ROT=- 0 

RETURN 

DATA 1,0,4,0,45,21,13,108,41,53,190,23,63,32,31， 
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246 
5010 DATA 63,224,48,150,78,57,23,23,54,45,69,43,32,13， 
118,31 
5020 DATA 110,41,37,228,28,231,219,27,77,105,9,229,24， 
24540y0) 一 了 
6000 DATA 0,1,0,16,0， 
6010 DATA 0,34,16,16,1 
6020 DATA 124,127,32,126,3 
6030 DATA 4,2,32,16,0 
6040 DATA 116,63,0,16 ,2 
6050 DATA 4,34,0,127,7 
6060 DATA 124,127,61,64,0 
6070 DATA 4,34,32,64,0 
6080 DATA 116,63,32,127，,7 
6090 DATA 4,2,32,64,0 
6100 DATA 116,63,32,68,0 
6110 DATA 20,32,32,72,0 
6120 DATA 18,32,32,73,0 
6130 DATA 18,32,96,64,0 
6140 DATA 113,63,32,80,0 
6150 DATA 16,32,0,32,0 
7-3 中 的 变量 ST 决定 字体 的 倾斜 程度 ,从 2000 一 2050 名 的 
绘图 子 程序 可 以 看 出 ,ST 是 通过 改变 每 一 行 绘图 的 起 始点 的 
横 坐 标 变量 XB(2000 句 ) 的 值 来 控制 倾斜 程度 的 。 当 2000 名 
中 的 XB 王 XB 一 ST 时 ,字体 向 右倾 斜 ; 当 XB 一 XB 十 ST 时 , 字 
体 向 左倾 斜 。ST 的 值 越 大 ,字体 的 倾斜 程度 就 越 厉 害 。 图 7-3 
就 是 ST=1 时 ,程序 7-3 的 运行 结果 。 
程序 中 的 变量 XS 控制 着 字体 的 水 平 宽度 ,而 YS 则 控制 
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图 7-3 图 案 化 字体 的 倾斜 方法 


字体 的 长 度 。 只 要 改变 造型 ,改变 变量 ST\、XS 、YS 的 值 ,就 会 
改变 字体 。 

这 种 倾斜 方式 的 优点 是 完全 由 BASIC 变量 控制 ,只 要 改 
变 横 坐标 的 左 端 起 点 XB 就 能 实现 ,很 容易 修改 。 而 且 还 可 以 
通过 XB 的 增加 与 减少 的 有 规律 变化 ,使 字体 扭曲 。 但 是 这 种 
倾斜 方式 也 有 它 的 局 限 性 , 它 无 法 使 基本 造型 本 身 也 产生 倾 
斜 ,而 且 只 适用 于 类 似 这 种 双 壁 作 图 法 的 场合 由 于 它 不 能 以 
连续 变化 的 方式 ,使 图 形 逐 行 倾 斜 ,所 以 无 法 直接 使 用 于 由 汉 
字 系 统 产 生 的 字体 或 其 它 图 形 。 为 了 增加 中 文系 统 与 绘图 系 
统 的 显示 形式 ,作者 写 了 一 小 段 逐 行 移 动 ,造成 画面 倾斜 的 机 
器 语言 程序 ( 表 7-6) , 供 读者 使 用 。 它 由 BASIC 的 “使 用 者 函 
数 "调用 ,程序 也 可 以 放 在 其 它 RAM 空间 。 我 们 仍然 将 它 放 
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在 DRAW.&COM 文件 中 ,请 你 先 把 由 表 7-3 与 表 7-5 连接 成 
的 这 个 文件 装 入 $ 1E00 处 ,再 进入 监控 ,输入 表 7-6 的 机 器 
语言 程序 ,再 用 DOS 命令 存盘 : 
]BSAVE DRAW.&COM,A$1E00,L$97w/ 
表 7-6 ”使 图 形 倾斜 的 机 器 语言 程序 

1E57 一 “20 

1E58 一 FB E6 EI C0 B0 36 E6 Ai 

1]E60 一 8A A2 00 A0 00 20 17 F4 

1E68 一 A0 00 Bl 26 AA A0 27 8A 

1E70 一 6A 6A 29 80 85 A0 Bl 26 

1E78 一 AA 29 7F 05 A0 4A 85 AI 

1E80 一 8A 29 80 05 A0 91 26 88 

1E88 一 10 E5 C6 AL A5 Al AA 49 

1]E90 一 FF D0 CD 60 4C 99 El 


在 BASIC 程序 中 ,使 用 者 函数 ”的 一 般 表 达 形 式 为 : 

行 号 ”数值 变量 名 王 USR (数学 表达 式 ) 
使 用 者 函数 可 以 在 BASIC 程序 与 机 器 语言 程序 之 间 传 递 参 
数 , 而 不 必 劳 加 于 POKE 与 PEEK 这 二 个 BASIC 命令 ,使 用 的 
方法 是 在 零 页 的 $A 单元 中 存 入 机 器 语言 的 跳跃 指令 的 代码 
$ 4C( 十 进 制 数 76) ,在 零 页 的 $B、$C 单元 存放 机 器 语言 
序 的 起 始 地 址 的 十 六 进 制 数 的 低 二 位 与 高 二 位 之 值 。BASIC 
会 根据 这 个 指示 ,自动 跳 到 被 指定 的 机 器 语言 程序 的 起 始 地 
址 处 。 在 进入 机 器 语言 程序 时 ,BASIC 已 经 把 USRCX) 的 数学 
表达 式 X 的 运算 结果 存放 在 计算 机 的 浮 点 累加 器 中 。 如 果 
程序 7-4 

100 REM 图 形 与 字体 的 连续 倾斜 方法 
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110 


120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
2000 
2010 
2020 
2030 


7000 
7010 
7020 
7030 


IF PEEK (49920) 二 76 OR PEEK (49921) < 之 75 
THEN END 
GOSUB 2000: CALL 49920: PRINT CHR$ (12) 
X 一 14: POKE 230,64 
FORI 一 1TO2 
FORK 一 1To4 
PRINT TAB(X);A$(K) 
NEXT K 
NEXT I 
FORI 一 16To 80 
U = USR (TD) : NEXT 
VTAB 9: END 
PRINT CHR $ (4);“BLOAD DRAW.&COM,A$6E00?” 
POKE 10,76: POKE 11,87: POKE 12,110 
FOR K 一 1 TO 4: READ A$ (K): NEXT 
RETURN 


DATA " 朝 辞 白 帝 彩 云 间 
DATA "千里 江陵 一 日 还 " 
DATA "两 岸 猿 声 不 住 " 
DATA "轻舟 已 过 万 重山 


机 器 语言 程序 在 返回 BASIC 之 前 , 先 把 要 带 回 的 参数 的 十 六 
进 制 数 的 高 二 位 存 于 累加 器 A, 低 二 位 存 于 暂 存 器 Y 中 ,再 调 
用 数 制 转换 程序 $E2F2, 然 后 返回 BASIC 程序 ,那么 BASIC 
解释 程序 就 会 将 这 个 参数 赋 给 指定 的 变量 。 如 果 BASIC 语句 
是 M=USR(X) ,那么 这 个 被 带 回 的 参数 就 被 赋 给 变量 M。 

在 程序 7-4 的 2000 句 中 ,机 器 语言 程序 的 装 入 地 址 被 指 
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定 为 $6E00, 这 是 为 了 使 一 些 软 汉 字 系统 ( 例 如 STC 汉字 系 
统 ) 也 可 以 使 用 表 7-6 的 机 器 语言 程序 。2010 句 设 定 了 “使 用 
者 函数 ?的 入 口 地址 是 $ 6E57。 在 这 个 “使 用 者 函数 ?的 机 器 
语言 程序 中 ,如 果 程 序 7-4 的 200 句 的 I 之 值 是 16 ,那么 这 个 
机 器 语言 程序 就 会 把 第 0 行 到 第 16 行 的 高 分 辨 图 象 向 左 移 
动 一 个 点 的 距离 ,程序 使 用 了 绕 卷 方 式 。 如 果 I 一 191 ,那么 整 
个 高 分 辨 画面 就 被 向 左 绕 卷 一 个 点 的 距离 .由 于 190 一 200 名 
的 循环 使 I 之 值 逐 次 增加 ,所 以 产生 了 倾斜 的 效果 。140 一 180 
句 的 两 重 循环 是 为 了 在 屏幕 上 连续 二 次 输出 李白 的 七 绝 ( 下 
江陵 》 其 中 前 四 句 被 移动 为 斜体 字 。 

如 果 被 移动 的 文字 与 图 形 在 高 分 辨 第 一 页 ,就 要 将 程序 
7-4 第 130 句 中 的 64 改 为 32。 


习 题 


1， 编制 一 个 能 使 一 行 汉 字 在 该 行 向 左 移动 ,直至 消失 的 程序 。( 提 
示 : 用 字符 串 函 数 取得 被 显示 的 字符 串 中 从 第 四 个 字符 至 最 后 一 个 字符 
的 内 容 , 并 在 它 的 后 面 连接 空格 符 , 然 后 重新 指定 显示 行 (VTAB) 与 起 始 
位 置 CHTAB) 。) 
2. 编制 一 个 能 使 一 行 汉 字 在 该 行 向 右 移动 ,直至 消失 的 程序 。 
3 编制 一 个 能 使 一 行 汉 字 在 该 行 卷 动 , 直 至 使 用 者 按 下 任何 一 个 
键 才 停止 的 程序 。 (提示 :需要 判断 被 显示 的 字符 串 的 第 一 个 ASC 码 是 
否 是 汉字 的 引导 码 ,并 根据 判断 结果 使 用 字符 串 函 数 。) 
4. 在 程序 5-5 中 ,使 用 了 图 形 数据 截取 的 方法 ,在 程序 7-2 中 又 介 
绍 了 使 用 芭 命令 的 双 壁 绘图 法 。 请 把 程序 5-5 的 键盘 扫描 部 分 删 去 , 改 
为 直接 在 高 分 辩 第 二 页 读 取 汉字 与 图 形 数据 ,并 采用 程序 7-2 的 && 命 
令 与 双 壁 绘图 法 的 技巧 ,将 读 取 的 点 阵 数据 的 低 七 位 用 造型 方法 绘 于 高 
分 辨 第 一 页 。 编 好 这 个 程序 ,一定 会 有 很 多 用 途 。 
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一 、 新 一 代 的 动画 创作 软件 
”一 一 介绍 (FANTAVISION》 


《FANTAVISION } 是 一 个 功能 很 强 的 软件 , 它 使 用 美国 蔷 
果 公 司 花 了 许多 人 力 与 物力 研制 出 来 的 新 的 操作 系统 一 一 
PRODOS , 它 不 仅 可 以 象 DoS 3. 3 那样 使 用 软盘 驱动 器 ,而 且 
还 可 以 使 用 硬盘 。 在 使 用 (FANTAVISION 》 时 , 你 不 必 特 地 去 
学 PRODOS 操作 系统 。 在 (FANTAVISION》 下 ,你 可 以 对 图 象 
进行 缩小 .放大 旋转、 倾斜. 压缩 .翻转 、 换 色 .前 取 、 粘 贴 、 找 
贝 等 一 系列 特殊 处 理 。 这 个 软件 可 以 在 APPLE 工 及 其 兼容 机 
上 和 运行 ,也 可 以 在 中 华 学 习 机 上 运行 , 它 所 需要 的 最 小 内 存 是 
64KB “RAM。 有 四 种 输入 设备 可 供 选 择 : 
， 鼠标 器 (MOUSE) 
. 绘图 板 (GRAPHICS TABLET) 
. 考 拉 板 (KOALA PAD) 
. 操纵 杆 (JOY STICK) 

由 于 操纵 杆 价 格 较 低 ， 所 以 一 般 家 庭 也 能 购买 。 这 个 软 
件 的 最 大 特色 是 自动 形成 动画 过 程 ,而 创作 者 只 需要 绘制 不 
同 的 静态 画面 。 例 如 ， 你 创作 了 两 幅 画 ， 一 幅 是 一 只 简陋 的 
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心 Co 天 


小 船 ， 另 一 幅 是 一 座 险峻 的 山峰 ,计算 机 就 会 在 这 二 幅 画 之 
间 , 自己 生成 若干 个 画面 ， 使 小 船 渐渐 地 变 成 山峰 。 只 要 你 
能 发 挥 自己 的 想象 力 , 绘 出 一 幅 幅 画面 ， 计 算 机 就 会 将 它 转 
换 成 动态 的 电影 。 使 用 一 台中 华 学 习 机 ， 配 上 一 台 驱 动 器 ， 
你 就 可 以 通过 家 里 的 彩色 电视 机 , 播 出 你 自己 创作 、 导 演 的 
影片 。 

开机 后 ,屏幕 上 显示 主 菜 单 , 它 的 中 间 是 一 个 很 大 的 空白 
矩形 ,这 是 绘图 区 ; 它 的 四 周 是 用 图 形 或 文字 表示 的 各 个 功能 
模块 。 拨 动 操纵 杆 ( 本 书 假定 以 操纵 杆 作 为 输入 工具 ) ,就 可 以 
移动 在 绘图 区 的 一 支 画 笔 , 只 要 画笔 一 进入 四 周 的 功能 选择 
区 , 它 就 会 自动 变 成 一 个 指向 左上 方 的 箭头 。 移 到 所 要 选择 
处 , 按 一 下 操纵 杆 旁 的 按 纽 ,就 会 看 到 被 选中 的 功能 块 的 图 案 
黑白 反 相 ,这 是 计算 机 在 告诉 我 们 , 它 已 进入 该 功能 .例如 ,在 
选择 了 左上 方 的 文件 CEFile) 一 项 后 ,在 绘图 区 就 显示 出 这 一 项 
所 具有 的 8 个 功能 。 你 可 以 继续 用 操纵 杆 移 动 ,用 按钮 选择 所 
需要 的 操作 : 装 入 存储、 清除 电影 (Movie) 或 背景 (Backdrop)， 
格式 化 磁盘 ,退出 File。 如 果 你 准备 保存 你 绘制 的 图 案 , 你 必 
须 先 准备 一 张 空 磁盘 ,执行 上 面 所 说 的 格式 化 操作 ,然后 再 开 
始 创作 。 

《FANTAVISION》 有 一 张 演示 盘 ,从 细胞 分 裂 到 基因 组 
合 , 从 高 台 跳 水 到 冰球 大 赛 , 从 几何 投影 到 旋转 的 立体 ,从 生 
物 进 化 到 图 象 变幻 …… ,你 可 以 象 看 录像 一 样 , 看 上 20 分 钟 。 
这 张 演示 盘 上 的 动画 和 背景 都 可 以 用 主 菜 单 中 的 File 功能 中 
的 Load Movie 与 Load Backdrop 功能 调用 。 

最 值得 一 提 的 是 (FANTAVISION》 不 仅 具 有 一 般 的 动画 
功能 ,而 且 还 具有 倒 放 功 能 。 如 果 看 演示 盘 上 的 跳水 表演 ,我 
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们 在 运动 员 跳 入 水 中 , 溅 起 水 花 时 , 按 一 下 退 格 键 ,就 会 看 到 
他 从 水 花 中 升 起 , 翻 着 跟 斗 , 回 到 跳板 上 去 。 按 一 下 进 格 键 ,就 
又 恢复 正常 。 这 个 功能 ,对 于 搞 计 算 机 辅助 教学 与 电视 制作 都 
是 非常 有 用 的 。 


二 、 造 型 明星 
二 介 绍 《PIXIT》 


《PIXIT》 是 美国 BAVDVILLE 公司 出 版 的 一 个 绘图 软件 
包 。 启 动 (PIXIT》 后 ,屏幕 上 就 显示 出 主 菜 单 和 题 头 画面 。 

按 左 、 右 箭头 键 ， 将 反 白 的 光标 移 到 所 要 求 的 选择 栏 ， 
按 下 回 车 键 , 就 进入 了 被 选中 的 功能 块 。(PIXIT; 的 最 突出 的 
优点 是 可 以 很 容易 地 生成 造型 ; 将 所 需要 的 造型 从 几 个 造型 
表 中 单独 取出 ， 重新 选取 、 排 列 , 组 成 一 个 新 的 造型 表 ; 并 
能 方便 地 将 造型 移入 你 的 图 形 画 面 。 有 相当 一 部 分 优秀 软件 
的 造型 是 在 (PIXIT》 系 统 下 生成 的 。《PIXIT》 还 有 几 种 大 小 不 
同 的 西 文字 体 ， 可 以 任意 指定 坐标 位 置 ， 插 于 图 形 画 页 之 
内 。 

《PIXIT; 的 主要 功能 有 三 项 : 

1. 图 形 编辑 

2. 创建 一 个 造型 

3. 造型 表 编 辑 


这 里 重点 介绍 一 下 第 2 个 功能 :Create a shape (创建 一 个 
造型 ) 在 选择 该 项 后 ,计算 机 就 装 入 这 个 程序 模块 ,屏幕 上 显 
示 出 一 页 文字 菜单 和 提示 : 
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PIXIT CREATE-A-SHAPE 





FUNCTION MENU : 
CREATE NEW SHAPE (ERASE SHAPE IN MEMORY) 
COMPILE SHAPE TABLE 
REVIEW MB EDIT SHAPE IN MEMORY 
CATALOG DISK 
CHANGE DISK DRIVE 1 
SHAPE SOURCEROR、 
QUIT 


USE ARROW KEYS AND [RETURN] TO SELECT 


选择 CHANGE DISK DRIVE 项 ,使 你 可 以 灵活 地 决定 目 
前 使 用 哪 一 个 驱动 器 。 选 择 CATALOG DISK 项 ,可 以 帮助 
你 查看 当前 所 使 用 的 驱动 器 中 的 软盘 上 有 哪些 文件 。SHAPE 
SOURCEROR 则 使 你 可 以 读 入 已 在 软盘 上 的 任何 一 个 以 
“ST， “作为 前 缀 的 造形 表 源 文件 ,并 可 以 逐个 观察 这 些 造 型 。 
如 果 你 对 其 中 某 一 个 感 兴趣 , 按 下 回 车 键 后 ,计算 机 就 会 用 放 
大 的 点 逐 点 按照 向 量 的 次 序 绘 出 该 造型 。 你 还 可 以 用 退 格 键 
逐 点 返回 ,用 进 格 键 逐 点 控制 显示 速度 ,使 观察 与 显示 速度 同 
步 进行 .而 REVIEW & EDIT SHAPE IN MEMORY 的 功能 与 
此 相似 , 它 不 仅 可 以 使 你 重新 观察 目前 在 内 存 中 的 造型 , 它 还 
可 以 继续 向 下 绘 出 造型 与 修改 原 造型 。 

在 CREATE-A-SHAPE 中 ,最 重要 的 功能 当然 是 它 的 第 一 
个 选择 项 :创建 一 个 新 的 造型 。 括 号 中 的 内 容 告诉 我 们 ,这 将 
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擦 除 原 来 在 内 存 中 的 造型 。 进 入 CREATE NEW SHAPE 后 , 屏 
幕 上 出 现 一 行 提问 
DRAWING SCALE:4 TIMES ACTUAL SIZE (绘制 造型 
的 比例 :4 倍 于 实际 的 斥 寸 ) 
你 可 以 根据 需要 更 改 比 例 为 1 一 7。 回 车 后 ,计算 机 又 显示 : 


GRID OPTION，， WITH GRID 格子 选择 : 有 格子 
WITHOUT GRID 没有 格子 


选择 后 ,计算 机 再 询问 造型 绘图 在 屏幕 上 的 起 始 位 置 
(STARTING LOCATION ON SCREEN:) ,下 面 有 四 个 位 置 可 供 选 择 ; 

TOP LEFT (左上 方 ) 

LEFT CENTER ( 左 侧 当中 ) 

BOTTOM LEFT (左下 方 ) 

CENTER 〈 中 央 ) 

当前 被 选择 的 项 用 反 白 字体 来 提醒 。 选 择 完毕 ,就 进入 开 
始 造型 的 图 文 混 屏 状态 。 只 有 放大 倍数 之 3, 才 会 出 现 格子 ,以 
方便 作 图 。 底 部 的 提示 告诉 我 们 ,可 以 按 “?? 键 看 辅助 页 上 的 
使 用 说 明 , 按 ESC 键 就 会 返回 编辑 状态 在 建立 造型 时 ， 
W、Z、A、S4 个 键 只 移动 位 置 ,不 画 点 (MOVE WITHOUT 
PLOT);IM\JK 4 个 键 移 动 位 置 ,并 画 点 。 这 8 个 键 的 作用 ， 
分 别 对 应 于 第 四 章 中 表 4-2 的 8 个 造型 向 量 。 如果 在 进入 时 ， 
你 选 了 较 大 的 放大 倍数 ,后 来 才 发 觉 格子 不 够 用 时 ,可 以 按 
CTRL-X 键 , 计 算 机 会 保存 已 画 部 分 ,并 重新 询问 放大 倍数 ， 
然后 将 保存 的 图 象 按 新 选 的 放大 倍数 重 画 一 遍 , 再 由 你 继续 
操作 。 

在 画 完 造 形 之 后 , 按 一 下 ESC 键 , 就 回 到 上 一 层 菜单 , 反 
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白 的 光标 已 经 自动 下 移 到 第 二 行 :COMPILE SHAPE TABLE 
(编译 造型 表 ) , 按 下 回 车 后 ,屏幕 上 出 现 了 刚才 所 创建 的 造型 
的 与 实际 尺寸 同样 大 小 的 图 样 ,并 询问 存 入 磁盘 的 文件 名 。 在 
你 回答 以 后 ,计算 机 就 将 这 个 造型 译 成 十 六 进 制 数 ,并 在 你 键 
入 的 造型 文件 名 之 前 加 上 前 缀 :“ST. ”然后 存 入 磁盘 。 若 不 
想 存 入 ,就 按 ESC 键 返回 上 一 层 菜单 。 

《PIXIT》 的 另外 二 个 功能 ,图 形 编辑 (Picture Editor ) 与 造 
型 表 编 辑 (Shape Table Editor) 的 使 用 也 和 创建 造型 表 的 方 
法 相似 。 图 形 编辑 功能 中 ,也 有 一 个 很 详细 的 文字 说 明 ,帮助 
你 使 用 这 个 功能 。 


三 、 童 话 天 地 
一 一 介绍 《连环 画作 者 》 
(COMIC STRIP MAKER ) 


你 想 了 解 一 点 自己 的 创作 才华 吗 ? 你 想 测验 一 下 自己 的 
形象 思维 能 力 吗 ?你 想 用 米 老 鼠 与 唐 老 鸭 作为 故事 中 的 角色 ， 
自己 编制 连环 画 吗 ? 美国 WALEF DISNEY 公司 出 版 的 软件 4 连 
环 画 作者 》(COMIC STRIP MAKER ) 为 我 们 提供 了 一 个 很 好 的 
机 会 。 这 个 软件 不 仅 内 容 丰富 有 趣 , 而 且 使 用 方便 。 象 拼 搭 积 
木 ,前 贴图 画 一 般 , 我 们 可 以 用 软件 中 许多 现成 的 图 形 ,组 合 
成 自己 构思 的 新 的 画面 ,赋予 角 色 以 新 的 经 历 和 性 格 。 

软件 启动 后 ,在 音乐 声 中 , 米 老鼠 . 唐 老 鸭 与 高 非 都 笑脸 
相 迎 于 屏幕 之 上 。 这 时 再 按 下 任意 一 个 键 , 就 继续 往 下 执行 ， 
直至 显示 出 主 菜 单 画面 。 
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正 象 一 场 戏 中 ,需要 有 布景 .道具 ,角色 一 样 《 连 环 画作 
者 》 这 个 软件 也 为 我 们 提供 了 一 套 布景 ,许多 道具 和 一 组 角 
色 。 

在 主 菜 单 显示 后 ,可 以 看 到 有 一 个 抢 形 框 环绕 着 第 一 个 
功能 框 ,不 停 地 闪烁 着 , 按 下 空格 棒 (SPACE BAR) ,这 个 矩形 
框 就 移 到 下 一 个 功能 框 的 位 置 ,继续 闪烁 。 用 空格 棒 ( 或 左右 
箭头 键 ) ,把 这 个 闪烁 的 框 子 移 到 我 们 所 要 选择 (CHOICES ) 的 
功能 块 的 图 象 处 ,再 按 下 RETURN 键 , 就 表示 我 们 选中 该 项 。 
在 这 个 软件 中 , 绝 大 多 数 的 选择 ,都 采用 这 种 图 形 方式 。 


《连环 画作 者 》 的 核心 部 分 是 第 三 个 功能 :CREATE MY 
OWN COMIC (创作 我 自己 的 连环 画 ), 让 我 们 先 介绍 这 个 功 
能 。 在 选择 了 第 三 个 功能 后 ,屏幕 右 下 方 出 现 提示 ; 


PLACE SIDE B IN 把 B 面 (图 库 ) 插 入 1 号 驱 
DRIVE 1 THEN PRESS RETURN ，\ 动 器 ,然后 按 RETURN 键 。 


执行 上 述 命令 后 ,整个 屏幕 被 大 致 分 成 三 个 窗口 ,左边 是 
选择 窗 ,下边 是 文字 提示 窗 ,右上 是 连环 画 页 窗 。 在 选择 前 , 连 
环 画 页 窗 是 空白 的 。 在 选择 窗 内 ,首先 让 我 们 选择 的 是 布景 ， 
它们 从 上 到 下 的 次 序 是 :INSIDE (在 室内 )\OUTSIDE (在 室 
外 )、DOWNTOWN (在 商业 区 )、BY THE SEA (在 海上 )、 
BLANK( 空 白 ).GRAPHIC DISK( 磁 盘 上 的 图 画 )。 选 择 所 要 的 
内 容 后 ,每 按 一 下 空格 棒 , 就 会 出 现 这 类 场景 中 的 一 个 画面 ， 
供 你 选择 。 如 果 不 要 背景 ,就 选择 BLANK。 按 下 RETURN 键 
后 ,选择 窗 被 更 换 为 另 一 部 分 的 内 容 ( 图 8-1), 供 你 继续 选 
择 。 
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人 垃圾 桶 〈 作 废 ) 
LI 
了 存储 或 打印 连环 夯 
站 m we 


图 8-1 选择 窗 内 容 





如 果 你 在 创作 连环 画 的 过 程 中 ,不 满意 已 经 装 入 连环 画 
页 窗 的 内 容 ,决定 全 部 抛弃 ,就 可 以 选择 垃圾 桶 。 计 算 机 会 再 
一 次 要 求 你 确认 这 个 命令 : 

ARE YOU SURE? (Y/N) 
按 下 Y 键 后 ,图 形 就 被 清除 ,程序 又 回 到 选择 背景 处 。 

对 话 框 有 许多 种 。 故 事 的 旁 日 ,角色 的 内 心 活 动 , 都 可 以 
借用 对 话 框 。 

8 个 角色 的 每 一 个 画面 ,都 可 以 选择 半身 近景 与 全 身 远 
景 ,在 选择 菜单 中 称 为 SMALL 与 CLOSE UP。 除 了 这 8 个 角色 
外 ,还 有 两 个 次 要 的 角色 被 放 在 道具 类 里 :一 个 小 贩 与 一 个 侍 
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道具 也 不 少 :窗户 .房屋 .餐桌 、 沙 发、 广告、 鱼 . 船 、 书 
,甚至 还 有 高 跷 。 进 入 道具 选择 后 ,每 次 在 选择 窗 中 出 现 
6 个 道具 的 名 称 , 如 果 选 择 在 这 6 个 道具 名 称 下 方 的 MORE 
项 ,就 会 出 现 另外 6 个 道具 名 ,共有 48 种 道具 。 

在 这 些 操作 中 ,有 一 些 功能 是 相同 的 ,在 此 一 起 介绍 
FLIP :一 一 使 背景 或 角色 左右 翻身 。 

CUT :一 一 前 取 , 从 选中 的 角色 或 道具 的 画面 中 前 取 所 取 要 的 
部 分 。 方 法 是 先 选 择 该 功能 ,再 移动 一 个 黑色 短线 
段 到 所 要 前 取 部 分 的 左上 角 , 按 一 下 RETURN 键 ， 
此 时 短线 变 为 一 个 小 矩形 ,再 按 工 或 CTRL-A 和 
人 ) 键 `M( 或 CTRL-Z 和 y ) 键 .J( 或 二 ) 键 (或 一 ) 
键 ,将 所 要 部 分 框 入 矩形 框 内 后 ,就 按 一 下 回 车 表 ， 
示 前 取 完 毕 。 

将 选中 的 角色 或 道具 (已 经 过 前 取 ), 移 到 连环 画 

页 中 去 。 移 动 方法 与 前 取 相 同 。 

王 = 一 一 继续 向 下 执行 。 

4 一 一 返回 上 一 层 菜单 。 

4 一 一 返回 前 一 个 步骤 。 

在 拼 贴 连环 画 的 过 程 中 ,有 一 只 手 形象 地 指 着 当前 被 移 
动 的 物体 。 把 物体 移动 到 目标 位 置 后 ,如 果 不 满意 ,可 以 按 
ESC 键 取消 这 个 物体 ;如 果 满 意 ,就 按 RETURN 键 , 表 示 已 经 
选 定位 置 。 图 8-1 中 的 前 三 个 选择 项 的 次 序 可 以 根据 需要 来 
决定 。 与 粘贴 画 片 绘制 油画 十 分 相似 ,总 是 后 选取 的 角色 . 道 
具 、 会 话 框 遮盖 住 在 此 选择 之 前 已 经 绘 出 的 部 分 图 象 。 若 要 唐 
老 鸭 稳 稳 当当 地 坐 在 小 汽车 内 ,你 就 必须 在 把 唐 老 鸭 粘 上 汽 
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MOVE 


车 后 ,再 前 一块 汽车 门 粘贴 在 唐 老 鸭 的 身上 .为 了 获得 更 加 精 
致 的 效果 ,你 可 以 从 许多 道具 中 前 下 一 小 块 颜色 ,把 它 当 作 补 
丁 或 点 缀 ,去 更 改 、 充 实 你 的 作品 。 

在 选择 图 8-1 中 的 存储 或 打印 连环 画 功 能 后 ,计算 机 首 
先 要求 你 把 软盘 的 A 面 插入 1 号 驱动 器 ,然后 显示 选择 菜 
单 ,共有 四 项 : 

存储 我 的 连环 画 (SAVE MY COMIC STRIP) 

打印 选择 (PRINT OPTIONS) 

返回 系统 主 菜单 (RETURN TO MAIN MENU) 

返回 上 一 层 菜单 

在 选择 存储 功能 后 ,计算 机 会 要 求 你 输入 连环 画 的 标题 、 
你 的 姓名 ,最 后 询问 是 否 要 将 你 自己 的 连环 画 存储 盘 片 格式 
化 。 计 算 机 的 约定 值 是 “NO”, 如 果 你 选 了 “YES”, 为 了 防止 错 
误 操 作 而 使 有 用 信息 被 破坏 ,计算 机 会 先 在 屏幕 上 显示 一 段 
提示 : 

PLEASE PLACE PERSONAL DISK 

IN DRIVE 1 
| 
的 磁盘 插入 1 号 驱动 器 。 
ARNING ， 

ANY PREVIOUS INFORMATION ON 

THAT DISK WILL BE DESTROYED. 
警告 :任何 在 磁盘 上 
的 原 有 信息 都 将 被 破坏 。 
按 ESC 键 可 以 取消 这 个 选择 , 按 RETURN 键 就 立即 开始 
执行 个 人 连环 画图 库 盘 的 格式 化 操作 。 
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掌握 了 《连环 画作 者 》 的 第 三 个 功能 :创作 我 自己 的 连环 
画 后 ,其 它 四 个 功能 就 很 容易 学 习 了 ,因为 在 如 何 选择 ,如 何 
退出 方面 ,它们 所 使 用 的 方法 是 相同 的 。 我 们 按 主 菜单 的 次 
序 ,逐个 介绍 。 

BE A COMIC WRITER (为 一 组 连环 画 撰写 对 话 。) 

选择 这 一 项 后 ,屏幕 上 出 现 一 只 米 老 鼠 , 它 在 问 你 喜欢 哪 
一 个 故事 。 下 面 有 6 个 故事 的 名 称 ,选择 框 在 闪烁 着 。 如 果 你 
用 空格 棒 或 左右 箭头 键 移 到 MORE 档 , 按 下 回 车 后 ,就 又 出 
现 另外 6 个 故事 的 名 称 。 这 是 软盘 中 已 有 的 12 组 连环 画 。 选 
中 其 中 之 一 后 ,计算 机 要 求 你 把 B 面 插入 驱动 器 ,然后 显示 这 
组 连环 画 中 的 第 一 幅 。 在 选择 窗 内 ,出 现 了 几 个 图 形 ,它们 从 
上 到 下 的 功能 分 别 是 :输入 自己 编写 的 对 话 或 独白 ,录制 软盘 
上 已 经 写 入 的 对 话 或 独白 ,存储 或 打印 这 幅 画 ,返回 上 一 层 菜 
单 . 如 果 在 同一 页 上 有 两 个 对 话 框 , 在 编写 完 第 一 个 对 话 框 中 
的 内 容 后 , 按 一 下 CTRL-C 键 , 光 标 就 会 进入 第 二 个 会 话 框 。 
另外 还 有 左右 箭头 键 `、 上 下 箭头 键 (CTRL-K 与 CTRL-J) 为 你 
的 写作 提供 方便 。 若 要 清除 已 输入 的 内 容 , 只 要 按 一 下 ESC 
键 。 屏 幕 左下 方 的 方 框 中 的 阿拉 伯 数 字 是 连环 画 的 页 数 , 如 果 
在 方 框 的 右边 有 一 个 指向 右 方 的 手 , 就 表示 还 有 下 一 页 。 

BRANCH A COMIC (转移 一 幅 连 环 画 , 即 重新 组 合 一 组 连环 
画 。) 

这 个 功能 与 上 面 的 BE A COMIC WRITER 功能 几乎 一 

样 ,不 同 之 处 在 于 ,你 可 以 根据 页 数 ,选择 一 幅 画 面 一 组 同样 
的 3 页 连环 画 页 ,由 于 次 序 不 同 ,故事 情节 发 展 的 过 程 与 内 容 
也 就 可 能 被 更 新 。 

LOAD A SAVED COMIC ( 装 入 已 经 存 入 盘 片 的 故事 ) 
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选择 该 项 功能 后 ,计算 机 在 要 求 你 把 自己 的 连环 画 软 盘 
放 入 驱动 器 (PUT YOUR PERSONAL DISK IN DRIVE 1. ) ,也 
是 按 RETURN 就 立即 执行 , 按 ESC 键 就 返回 到 主 菜单 。 如 果 
你 放 入 的 软盘 中 没有 在 该 系统 下 存 入 的 连环 画 , 计算机 也 会 
告诉 你 ,这 张 盘 片上 没有 连环 画 : 

THIS DISK DOES NOT HAVE ANY 

JAVED COMIC STRIPS. 

并 要 你 把 系统 盘 (A 面 ) 放 入 1 号 驱动 器 , 按 RETURN 键 重新 
进入 主 菜单 。 你 可 以 把 自己 创作 的 连环 画 重新 从 盘 片 中 取出 ， 
进行 修改 , 润 饰 . 打 印 。 

SETUP (系统 安排 ) 

进入 后 ,计算 机 首先 询问 :“HOW MANY DISK DRIVES??” 
(有 几 台 驱动 器 ?) 。 在 选择 1 或 2 后 ,又 进入 第 二 幅 画面 ,要 你 
挑选 自己 所 使 用 的 打印 机 (SELECTING YOUR PRINTER ) 。 共 
有 19 种 打印 机 ,分 成 二 个 画面 供 你 选择 。 中 华 学 习 机 所 配 的 
打印 机 一 般 是 MX-80,FX-80。 在 选 定 打 印 机 类 型 后 ,计算 机 
又 询问 你 使 用 哪 一 种 打印 机 接口 卡 (SELECTING YOUR 
PRINTER INTERFACE) ,共有 35 种 接口 (界面 ) 卡 可 供 选 择 。 
最 后 询问 接口 卡 所 在 的 槽 号 ,一般 都 将 接口 卡 插 在 一 号 模 。 
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附录 微型 图 库 


为 了 便于 读者 使 用 ,作者 绘制 了 一 组 图 案 , 供 读者 参考 ， 
这 些 图 案 既 可 以 作为 汉字 与 拼音 字母 的 “点 ”, 又 可 以 单独 组 
成 纹样 ,装饰 图 形 的 画面 。 在 每 个 图 案 旁 都 绘制 了 一 个 由 这 个 
图 案 组 成 的 矩形 作为 实例 ,每 组 图 案 下 面 给 出 了 每 个 图 案 的 
向 量 造型 的 十 六 进 制 值 .改变 造型 之 间 的 距离 ,画面 效果 就 会 
改变 。 作 为 组 合 后 的 实例 的 间隔 ,大 多 数 是 10。 
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